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1.0 ABSTRACT 


2.2 


TKEREEES 


shit _groeres allows the user to checkout or debug the price or 
DR11 odule (UNI 2 word input interface or UNI 2 word 
cutput interface). Ts run the logic test, the user must have a 
maintenance loop-back cable. + tests are limited and cannot 
check the input or cutput data paths. To check input or sutput 
a “Wine some means cf generating or detecting data changes is 
needed. 


REQUIREMENTS 
RPERSESREESE 


Equipment 


1. POP-1i/Family computer with 4K cf core cr more and 1/70 
terminal. 


2. DRIIL or ORIIM (To be tested). 

3. For logic test, maintenance loop-back cable. The maintenance 
loop-back cable is made up of a Berg Connector with 2 wires. 
One wire connects pin “V" with pin “VV". The other wire 
connects pin “X" with pin “TT”. 

4. For auto-slave, a master POP-11 with DRII-M and this progran. 


For auto-master, a slave CPU (PDP-B or PDP-11) with input 
module (DRII-L). 


&. For auto-master/slave, a ORIIL cabled to a ORIIM. 


For all other tests, some means of generating or detecting 
data changes. 


Storage 
This program occupies core locations OOO000-017474. 
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S.0 LOADING PROCEDURE 
REESELERRESRERE TE 


3.1 Method 
Procedure for normal binary tapes should be followed: 
1. Absolute Loader must be in memory. 
Place binary tape in reader. 
3. Load address #7500 (#Determined by location of loader). 
Press “START” (Program wil] load). 


4.5 STARTING PROCEDURE 
EREEEEEFEERES SLES 


4.1 Control Switch Settings 


Starting at SA200 cr 210 set all switches as desired. See 
Section S.1. 


4.2 Starting Addresses 


1. ‘Load and start at location 200 for initial questions about 
SPC acdules. 


&. Load and start at location 210 to avoid questions if you wish 
| oan the program with the same parameters as set by a start 
a 


NOTE 


After peesten pregram into core you 
#must# initially start at location 200. 


ee oe 


“+ 


FO 


Page S 


4.3 Program AND/OR Operator Action 
1. Load program into core. 
. Set switch register to starting address. 
Load address. 
Set switches to desired settings - See Section S.1. 


Press start. 


ow £ Ww fF 


The program will type first question. 


4.4.1 TERMINAL CHANGE REQUIRED (Y OR N)? 


Respond by typing a Y or (no carriage return required) ¢t 
represent vee or NO. If the program is started on the CPU’ 
console TTY and yee wish to change to a different TTY, type “Y" 
otherwise type “A”. 


0 
8 
4.4.2 KEYBOARD CSR ADDR. OF NEW TERMINAL? 


Question asked only if YES was the resoonse to 4.4.1. Respond by 
d CSR address of the néw terminal. 


typing the keyboar 
4.4.3 ITS VECTOR ADDR. ? 


Question asked only if YES was the response to 4.4.1. Respond by 
typing the vector address of the new terminal’s keyboard. 


| 4.4 Program Questions 
! 
| 


; 
i 


4.4.4 PRINTER CSR ADDR. OF NEW TERMINAL? 


Guestion asked only if YES was the response to 4.4.1. Respond by 
typing the printer CSR address of the new terminal. 


4.4.5 CSR ADOR. OF INPUT MODULE? 


Respond by typing the CSR address of the word on the input module 
you wish to exercise. If you do not wish to exercise an input 
module, type only a carriage return. 


a sy 
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4.4.6 CSR ADDR. OF OUTPUT MODULE? 


Respond by typing the CSR address of the word on the output 
module you wish to exercise. If you do not wish tc exercise an 
output module, type only a carriage return. 


4.4.7 MODE? 


Respond to this question by typing acharacter from “A” to “M™ 
followed by carriage return t any time (except logic tests) 
cou may return to this question by typing "tC" (control and the 
fetter “C™ typed together). 


MODE MODULE AFFECTED FUNCTION 
& output Continuoys anteet. 
Load data tc the output module without 
checking for any flag. 


8 output Flag output. 
Check for output modules’s “Ready” flag 
(bit7) and loads DBR with data. 


C output Interrupt output. 

cregces sets output module’s interrupt 
eradle. On interrupt it loads output 
mo.sles DBR with data. 


D output Delayed output. 
The program clears output medules CSR 
bitO; loads OBR with data; and then 
sets CSR bi 


E output Start Auto Mode Master. 
This program may be used to generate 
data a a master to send to a slave CPU 
running slave mode. A table of data is 
outputed in modes A-D automatically. 


Mode “K” of program  MD-11-DZDRH 
(forPDP-11’s) or MD-O8-DHDRH (for 
PDP-8’s) must have been selected. 
Output word must be cabled to input word 
of DRLII-M or DRB-ED 


“Start Mode” is typed at the beginning 
of this mode. The rege stall 

waiting to link up with the input module 
its connected to. After link-up, 
“Immediate Send Mode” is typed. In this 
mode data from the table is sent 
directly out as soon as the input module 


ae ee ee ee 
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is ready to receive it. If the input 
module detects an error in the data it 
receives, it can request a re-transmit 
of the gee data by setting the stat 
out bit thus setting the input module’s 
stat in bit. If this occurs “Resending 
data xxzzzz” will be typed. After this 
mode, “Burst Send Mode” is taped, n 
this mode the cutput module is allowed 
to interrupt for table data. “END PASS” 
is typed after completion. 


Warning: Before starting the input or 

output module into “Start 

Mode", both CPU’s should be 

running and waiting at “4.4.2 

Mcde?". At no time should the 

program be allowed to enter 

Start Mode” and the other CPU 
initialized. 


This mode was not designed to diagnose 
this module. 9 data errors are 
checked. If any of the control signals 
fail the program could “hang” waiting 
for the signal. Maximum time between 
Sypegete should not exceed 

minutes - if it does, halt the CPU and 
determine the PC the program is at. Go 
to the listing for more information. 
Prints mentioned in the listing can be 
coordinated against the flow chart. 


a OOo 





sutput 


input 


input 


input 


input 


input 
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Output Module Logic Test.  .- 

The nore preforms a brief logic check 
cf = th outputs module’s CSR and 
interrupt capacities. A Maintance 
loop-back must be installed in the word 
under test. 


Cortinuous input. 
The rograe continously reads the input 
module’s DBR. 


Flag input. 

The program waits for the “Ready” flag 

Se te 7) and then does a DBR read when 
it7=1. 


Interrupt input. 

The program sets interrupt enable and 
waits unti! the input module interrupts 
to read the modules 


Melayed input. 

The program clears CSR bitO; reads the 
DBR; and then sets CSR bitO, thus 
delaying Data accept from returning. 


Start Auto Slave 

The program may be used to receive data 
as a slave to recaive data incoming from 
master CPU running in Master Mode (see 
Mode E), as data is received it is 
compared against a table of data. Modes 
G-J are automatically executed. If data 
received does not compare to the table, 
an error is reported. 


Mode “E” of MD-11-DZDRH mus! be selected 
in Master CPU. Input word must be 
cabled to the output word of a DRII-L. 


"Start Mode” is typed at the beginning 
of this mode. The heat os stalls 
waiting to link up with the output 
module its connected to. After link-up 

“Immediate Send Mode” is typed. Eac 

time data is ready, the data is read and 
compared against table date. “Burst 
Send Mode” is next. Here the input 
module is allowed to interrupt each time 
it receives data. “End Pass” is typed 
at completion. 


Warning: Before starting the input or 


output modul into “Start 
Mode” both CPU’s should be 


input 


input-output 
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running and waiting at “4.4.2 
Mode?”. At no time should the 
program be allowed to enter 
Start Mode” and the other CPU 
be initialized. 


This mode was not designed to diagnose 
this module. a data errors are 
checked. If any of the control ot rye 
fail the program could “hang” waiting 
for the signal. Maximum time between 
<a ne should not exceed 3 
minutes - if it does, halt the CPU and 
determine the PC the program is at. Go 
to the listing for more information. 
Points mentioned in the listing can be 
coordinated against the flow chart. 


Input Module sage Test. 

The rere preforms a brief ogis check 
of the input modules CSR and interrupt 
capacities. A Maintance sone back 
connector must be installed in the word 
under test. 


Start Auto Master-Slave. 
Preforms Modes E and K on an input and 
cutput mode located in the same CPU. 
The input word on the ODRLI-M must be 
cabled to the output word on the DRII-L. 








4.4.8 SOURCE CF DATA? 


s question is t 

program want 
t you want to output. 
lowed by a carriage return. 
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d when an output Mode A-D is selected. What 
to know is where do “hay want tc get the data 


Respond by typing a character from A-D 


Data from the Switch Register 


Data from the TTY. 

In this case, any future octal Gigi ts 
typed on the Keyboard will be assembled 
as data and each time a veh return 
a6, Syper the new data typed will be sent 
out. 


Program generated pattern. 

The rere will automatically generate 
the data to be outputed in one of 4 ways 
petisie by the operator by question 


Data is outputed from a table in core. 
Data to be outputed can be found by 
finding the address of TABLE and looking 
in the listing. 
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4.4.9 STARTING PATTERN? (If Source of Data "C” Selected) 


Respond by typing the pers representation of the data you wish 
to start output > his data will be modified according to the 
patterr wodilier you select in 4.4.10. 


4.4.10 PATTERN MODIFIER? (If source of Data “C” Selected) 


Respond by typing a character from “A” to “D" to represent how 
you want the data that is being outputed to be modified. 
wom nahn. emeeee 
R INCREMENT DATA 
B DECREMENT DATA 
C FLOAT ZERO-COMPLEMENT 
D COMPLEMENT 


Respond by 1 a & character from “A” to "C” to represent the 


way you wis e data being received by the input module to be 


reported. 


in data lights 
on TTY-reported each 


time a change in 
input data fs detected. 
C Error check. An input 


module is cabled to an 
output module/data 

beginning sent to the output 
module if compared to the 
data received by the input 
module-if data is 

different an error is 


4.4.11 METHOD OF REPORTING DATA? 
| 


reported. After each 
100 transfers are made, 
“END PASS” is reported. 


| 

| 

| D Error Check. An input 
module is cabled to an 
| 
| 





a 8 TS 


MO1 


Page 12 


output module in another 
CPU. This method only 
works when the “Source 
of Data” for the output 
module is that of the 
table “D”. 
On the output module 
side, you would select 
"Mode" “BY or “C5 
“Source of Data” “D”. 
On the input module 
side, you would select 
0 


é or 
ERRORS detected as 
in modes "E” and "K” 





$.0 


5.1 


OPERATING PROCEDURE LOGIC TEST 
JE E HEHEHE HHH EEE 


Definition - Switch Register 


The program must, at various points in execution, determine what 
the aperaier desires to do at these peters tsuch as “halt on 
error”). Standsrd procedure was to + this information from the 
hardware switch register. With the addition of CPU’s to this 
pant oe of computers that have no switch register, a hardware 
switch register can no longer be assumed. This program uses a 
software switch register; that is, a location in memory “SWREQ” 
as the source of “Switch register” data. 


S.1.1 Loading the Software Switch Register 


The software switch register can be altered in two ways: 


| 5.1.2 From the Hardware Switch Register 


This way over-rides the other ways. Data loaded into the 
hardware switch register will be transferred to the software 
eat S05 register directly each time “switch register” data is 
needed. 


5.1.3 From the User's Terminal 


A “tS” (control and letter “S” ont typed simultaneously) will 
cause the current software switch register to be typed out and 
allow the user to type in the new value of the switch register. 


If a hardware switch register exists, and the user desires to use 
the software switch register, the user should leave the hardware 
switch register clear (all switches down). 


NOTE 1 


When using a pure software switch 
register “halt on error” is re-defined 
to “hold on errcr”. If the CPU were 
allowed to halt, then core data coult 
not be examined and the switch register 
data could not be altered. “Hold on 
error” sets in a lorp testing software 
SWR bit 15, allowing TTY interrupts. 


NOTE 2 


tt cc CC A LLL LLL LLL LE LL 
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Some means cf gramining CPL memory must 
be a incorporated into the keyboard 
handler must be made so that the 
cperatcr on a switch register - less CPU 
can examine core locations while in a 
“hold on arror”. The program uses a “TE 
zzxrzzz” where xrrrrzzis the locatson to 
be examined. 


5.1.4 Switch Register Function 


SuiS=i cr up Halt on errer. 
SHiS=1 or up Loop on test. 
SWi3=1 or up Inhibit printout cf error. 
SWlls1 or up Inhibit subtest iterations. 


S.e Scope Loops : 


If an error cccurs and the user wishes to scope the error, he (or 
she) should set SW1S=1 to halt on error, then when the program 
halts on error, SW1S=0, set SWI4=1 tc (loop on current test), 
SWi3=1 {ts inhibit errer printout) and press continue on the 
CPU’s CONSOLE 


| 5.3 Program AND/OR Operator Action 


| 

The first pass sehen = the oe gor will be made with iterations 
inhibited. Successive passes wil] enable iterations if SW11=0. 
“END is printed at the end of a pass. The vector and 
| pricrity of each input or gvieet under test will be typed when 
{ he hey is initially run or if t 
j ur 


e vector or priority is changed 
hg 8 pass. 


ee + eee 
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&.0 ERRORS 
RRSREE 


6.1 Error Typecut 
Print out varies with the error detected. The error PC typed out 
is the actual location of the error cali. Error typesuts are 
recseeded with THE ADORESS of the error, if information is 
meee reference the listing in respect to the PC (ADDRESS) 
yped out. 


6.2 Neon-Standard Errors 
“TRAPPED TO LOCATION: XXXXXX FROM LOCATION: YYYYYY” 
indicates: 
1. An INPUT or OUTPUT module interrupted to a wrong vector. 


&. Time-out or illegal instruction hareware trap. This is a 
fatal error that can not be continued past. 


So ee a ee em a en te ee nee ty 


7.0 RESTRICTIONS 
EEGEESEEESES 


7.1 Starting Restriction 


If the Vector address cf ony bnest or output is either 200 of 
2l0-the program must be restricted at address 001000. 


_8.0 MISCELLANEOUS 
EESEERERES EEE 


8.1 Execution Time Logic Test 
0,5 MIN. Iterations inhibited-no errors. 
1,0 MIN. WITH ITERATIONS (FOP ERCH CONNECTION)-NO ERRORS. 


Execution times are approzimate, as the various PDP-11 CPU's have 
varied instruction execution times. 
ol Lary St cael MACY11 27(732) 21-SEP-76 09:S2 PAGE 2 


inst whe 
wt ewe =< 
4 
Be 
3 
s 


et ee ee ee Se C+ eC + 


ALGO SS GKKESHASSOISRAPSBESBBYRR LGV ots Gentne coker weo~ ser 


600091 


lees 


g8 
4B 


;#MAYNARD, MASS. 01754 DO2 
i #PROGRAN BY EDWARD C. BADGER 


#THIS PROGRAM WAS ASSEMBLED USING THE PDF-11 MAINDEC SYSMAC 
: SPACKAGE (MAINDEC-11-DZQAC-C2), SEPT 14, 1976. 


itn 
.SBTTL TRAP CATCHER 
:*ALL D LOCATIONS 0 FROM 4 TO 776 CONTAIN .44. IOTT (TRAP CALL) 
; SEQUENCE TO CATCH ILLEGAL TRAPS aNd INTERRUPTS TO WRONG VECTORS AND 
#ROUTE THEM TO ROUTINE “IOTRE™ FOR TYPE 
:#LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS. 
.=40 
“WORD 42 
WORD 9 
2174 
SWREG: OQ 
DISPRE: 0 
IMP aeSTART ;GO TO STARTING ADDRESS OF PROGRAM. 
.2210 
IMP DeRSTART 
=1000 


IMP QsSTART 


-SBTTL BASIC DEFINITIONS 

Vi Sha _— OF THE STACK POINTER ### 1100 ### 
FT. ERROR + Bere DEFINITION OF ERROR C 

“Eouly 


BASIC DEFINITION OF SCOPE C 
; #MISCELLANEOUS DEFINITIONS 


STACK 


ATs T= i ; CODE FOR HORIZONTAL TAB 
= OE sTCODE FOR LINE FEED 
CRLF= 200 CODE FOR CARRIAGE RE TURN-LINE FEED 
PS= 177776 : t BROCESSOR STATUS 
-EQUIV PS, PSW 
TKLMT= 177774 3 STACK LIMIT REGISTER 
PIRG= 177772 :PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 :  HAROWARE SWITCH REGISTER 


; ;HARDWARE DISPLAY REGISTER 











Oe 





MAINDEC=11-DZDRH=8 MACY11 27(722) 21-SEP-76 09:52 PAGE 3 
DZDRH.P BASIC DEFINITIONS 

7 

58 -#GENERAL PURPOSE REGISTER DEFINITIONS 

3 oo0000 RO= “0 ss GENERAL REGISTER 
bi RSs %2 feta Stare 

R3= %3 GENERAL REGISTER 

53 RY= “4 ::GENERAL REGISTE 
5 REs Y + SENERat Reat2 
5 R7= “7 ::GENERAL REGISTER 
67 SP= % ::STACK POINTER 
Ps PC= “7 73PR C 

70 *PRIORITY LEVEL DEF INI TIONS are , 
“ 000 PRis 49 +S BRT ORT TY LEVEL 1 
oa eatin Pras SS PRIORTTY LEVEL 3 
75 Bonen PRY= iy : :PRIORITY nate 4 
38 pone PRE: S00 SPR ORI TY EVEL & 
se: pee aap pres 300 +S PRT ORETY LEVEL 7 
80 -#"SWITCH REGISTER" SWITCH DEFINITIONS 

. Bg de 

83 ee 

5 010000 SWl2= 10000 

= 004090 SWll= 4000 

& BBS aii: fon 

eg 000400 SwO8= 400 

eg 000200 SWO7= 200 

39 000100 Su0b= 100 

gi 000040 SwOS= 40 ; 

ge o00020 Suo4= 20 

93 000010 SwO3= 10 

a4 000004 SW0e= 4 

3S SwOi= 2 

3 000001 Swoo= | 

97 “EQUIV SWO9,SW9 

9g “EQUIV SHOg, Sug 

99 “EQUIV : 

186 “Eouty S10 Se 

10¢ “EQUIV SWO4, SW4 

ted FetY Sure’ au 

tee ‘ Bu V 1) 5W1 

13% “EQUIV SW 

108 -xDATA eI INITIONS (BITOO TO BITIS) 

109 100000 81T1S= 

110 040000 BITL4= Mite 

ili 620000 IT13= 20000 

112 010000 BITle= 


-_— + ee. 


Ne EEeeeEEEEEoEOEOEOEeEeEeeEeEeEeeee 


MAINDEC-11-DZDRH-A 
DZDRH.P11 BASIC DEFINITIONS 


SBBVRARFORHBBBVR RPG Sow 


o- O—* 6-< b= b-2 b-< b+ 2 bb & = + F< & = b-< P= B= Pb -2 h-2 & = O-< Bb -— B= B= P= 9 P— He 
Ps 
rey 


= b= pp pe 
NOMUILC Ww am 


004000 


Bbi000 


000400 
OC0200 


000010 
900904 


BgbeaT 
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==FFess. 
PREIB BOK 


4H -4 
¢ 


S- 


laatalalaalnalaa taal fates testeteterteteteterten 
el22&eeeeeee 


ee ee eer eran ery 
<<<<<<<<<< 


T 
PIRQVEC= 


Oo 
——— cs wo 
££f£0O ; 


patertartart tart art art t= ae 
SO LRR NOD 


AAA 


64 
240 


POPSP2= 22626 ~ 


On LUMO iow 


FOe2 


TRAP VECTOR ADDRESSES 


;; TIME OUT AND OTHER ERRORS 
ied AND ILLEGAL INSTRUCTIONS 


INT TRAP (BPT) 
T/OUTPUT TRAP (IOT) ##SCOPEX# 


LEME ATOR TRAP (EMT) *#*ERRORE* 
TRAP 


STTY KEYBOARD VECTOR 
sine PRINTER VECTOR 
:PROGRAM INTERRUPT REQUEST VECTOR 











MAINDEC-11-DZDRH-A MACYIL 27(722) 21-SEP-76 09:52 PAGE S 
DZDRH. P11 COMMON TAGS 
158 .SBTTL CUMMON TAGS 
158 beara TREE CONTAINE GRIOE GOMEN KTfase ioeation 
163 THIS TABLE. CONTA aINS VARIOUS COMMON STORAGE LOCATIONS 
161 
162 901100 .21100 
163 001100 SCMTAG: ;START OF COMMON Tags 
i84 001100 oo0000 $PASS: .WORD O CONTAINS PASS COUN 
165 001102 000 STSTNM: .BYTE 0 ONTAINS THE TEST NUMBER 
166 001193 000 SERELG: “BYTE O js CONTAING FLAG 
167 001104 00000 SICNT: .WORD O i CONTR NS SUBTEST ITERATION COUNT 
168 001106 o00000 SLPADR: .WORD 0 -:CONTAINS SCOPE LOOP ADDRESS 
169 001110 oo00c00 SLPERR: .WORD 0 ?: CONTAINS SCOPE RETURN FOR ERROR 
170 O011le2 000000 SERTTL: .WORD O ?:CONTAINS TOTAL ERRORS D 
171 001114 000 SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL 
172 001115 001 SERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER 
173 001116 pp005 SERRPC: .WORD 0 *: CONTAINS PC OF LAST ERROR INSTRUCTION 
ee or eB aural GObeSE & “BE oft 
176 Oo 1es o00000 SGDDAT: . WORD f + ONTAING *G00D’ DATA 
177 001126 000000 SBDDAT: :WORD 0 *:CONTAINS ’BAD’ DATA 
178 001130 o00000 .WORD 0 +: RE TO BE USED 
179 001132 o00000 ;WORD O 
; 180 OO1134 000 OB: .BYTE 0 ; sAUTOMATIC MODE INDICATOR 
i ia 001135 ooo SINTAG: .BYTE 0 >; INTERRUPT MODE INDICATOR 
182 0011 “WORD 0 
1B Be ie SiRiay. Wo Ditee «HERDS OF MITCH REL 
| «18S 901144 1ererD $TKS: eed :TTy THY Kab srarus 
| 186 00114 177562 STKB: 177562 
| 187 QO11SO 177564 $TPS: 177564 itty BEINTER St STATUS REG. ADDRESS 
' 188 GO1152 177566 $TPB: 177566 :TTY PRINTER BUEFER REG. HODRESS 
' 189 001154 000 SNULL: .BYTE 0 ?:CONTAINS NULL CHARACTER FOR FILLS 
, 190 001155 oo2 SFILLS: .BYTE 2 js CONTRING 8 # OF FILLER CHARACTERS REQUIRED 
12 Bue oe Gene ene Manet duhftaece” Hae ett Gres 
i » ° <07>= 
| 493 Sito pooshy GBB: EOD 5 STERNAL A 
| 1s *:WHICH (SREGO) WAS OBTAINED 
| 1985 001162 000000 .WORD O *:CONTAINS (($REGAD)+0 
| 196 001164 00000 STMPO: .WORD O >:USER DEFINED 
| 197 001166 o00000 STIMES: 0 >:MAX. NUMBER OF ITERATIONS 
- 198 «001170 077 SQUES: .ASCII /7/ > :QUESTION MARK 
499° 001171 015 $C CII «15> 3 ;CARRIAGE RETURN 
200 001172 oD00i2 SUF: ASCIZ «12? “LINE FEED 
i 201 ere Terr tr er eriie rer errr rrr TrTirettttir itt T tT tT tT err tt TT tT} 
203 001174 900000 ohh .WORD 0 :ADDRESS OF OUTPUT MODULE’S CSR. 
20s 001176 ooo000 XDBRA: .WORD 0 ADDRESS OF OUTPUT MODULE’S DBR. 
| p07 001200 900000 XVT: WORD O sVECTOR ADDR. OF OUTPUT MODULE. 
208 O0i2e0e 000000 XVT2:  <:WORD O ‘VECTOR ADDR. +2 FOR INTR. PSW. 
' 210 001204 op0000 RCSRA: .WORD O sADDRESS OF INPUT MODULE’S CSR. 
211 001206 o00000 ROBRA: .WORD 0 ADORESS OF INPUT MODULES DBR. 


-——- —-—— ----- 
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CTOR ; oF NPUT MOOCULE 
+ 


€TOR INPUT MODULE 
70 TERMINAL VECTOR ADDR. 
V2 TERMINAL CTOR ADDR. +2. 


;MODE OF yt Lad OF PROGRAM 
MODE OF OPERATION OF INPUT ROUTINES. 
ees §B B Ppuace OF DATA 
VALUES '8 TO’ 
HIAOICATES F PATTERN MODIF tr eT 
;ACTUAL PATTERN TO BE OUTPU 


;METHOD OF 

;DATA READ F NPUT_ MODULE. 

;OLD PATTERN IF OUTPUTTING ON TTY. 

;USED BY MASTER-SLAVE AUTO TO SAVE MASTER’S PC. 
TQ SAVE SL 


PC. 
“SLAVE AUTO TO SAVE MASTER’S STATUS. 
USED BY MASTER-SLAVE AUTO TO SAVE SLAVE’S STATUS. 


;MASTER’S ITERATION COUNT 
;SLAVE’S ITERATION COUNT. 


;POINTS TO SLAVE’S BSM STORAGE AREA. 
;PRIORITY OF OUTPUT. 
PRIORITY OF INPUT. 


;CHARACTER INPUTTED FROM TTY. 
; INDICATES STARTED AT 200 IF O. 
; TEMP STORAGE. 
;SAVES PC iN ERROR ROUTINE. 
; ADDR. OF REAL HARDWARE SWITCH REGISTER. 


; SOFTWARE SWITCH REGISTER. 
;#0F ERRORS TYPED OUT. 





-SBTTL ERROR POINTER TABLE 


HIS One Sonate T Ee ORATION Pon ee EACH yr THAT CAN OCCUR. 
INFORMATION 7 OBTAINED BY USING R_FOU N 
Heaton SITEMB. THIS NUMBER INDICATES RICH TTeM IN he TABLE os PERTINENT. 
¥NOTEL: E O THE ONLY PERTINENT DATA _IS ( 


F 
t eNOTED: EAC 


CER © 


IS 
TEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;# EM ;;POINTS TO THE ERROR MESSAGE 
;% H ;;POINT 1 DATA HEADER 
# T ;;POINTS T DATA 
263 3% DF ;;POINTS TO THE DATA FORMAT 


¢ 


g 
B 
a 
z 
wo 


1 
-SBTTL PROGRAM START-UP 


B 
B 


1 START: 

.SBTTL INITIALIZE THE COMMON TAGS 

;;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV aSCMT 





;# PROGRAM TEST TO DETERMINE WHAT CLASS OF COMPUTER WE ARE RUNNING IN. 


Ee 
267 
268 
263 
270 
Be 
273 001306 012706 001100 AG, R6 FIRST LOCATION TO BE CLEARED 
274 O01312 o0S0e6 CLR (R6)+ CLEAR MEMORY LOCATION 
275 001314 022706 001140 CMP #SWR,R& ;;DONE? 
e76 001320 SOL 374 ;;LOOP BACK IF NO 
001322 O01 001100 #STACK, SP SETUP THE STACK POINTER 
og l 1 js INITIALIZE A FEW vectors SIOTVEC s10T CTOR FOR SCOPE ROUTINE 
seh BLS SLE ESSS BRED RY SESSUGLSHETWC, 0°70 FOR SOE our 
Se ec a pala 
1 1 MOV 8S ae! VEC ii VECTOR FOR TRAP CALLS 
ees Bale blerar 8 eee HOV SSPuRDN, JOPLRVES POKER FAILURE VECTOR 
8b ! 12737 0: 000026 HOV 8240, SUPHRVECHE iLEveL EL? 
te 

P28 ratte WE H014i2 001106 ae 8. Bape SORE toe ane SCOPE 
289 ;;SIZE FOR A SWITCH RE REGISTER. IF NO 
230 :*EQUAL TO A “=1" FOR A SOFTWARE OH REGISTER 

1 001420 013746 OD0004 MOV a C,-(SP) ss SAVE a Hee 
292 001424 012737 001460 MOV #64S, J8ERRVEC ERROR VECTOR 
e393 BO 1432 Oe? 37 177570 001140 MOV #0SWR, SUR it ET FOR A HARDWARE SWICH REGISTER 
295 BOL de 525777 197997 reat c sODISE, DISPLAY ow o TO OTS ROMARE SR 
2% O014S4 001012 BNE bes’ ; ; BRANCH CE RR wiics OUT T CURRED 
297 HE HARDWARE SWR IS NOT = -1 
298 001456 O00403 BR 65S BRANCH IF_NO TIMEOUT 
33 001460 Oie716 001466 64S: HOV #655, (SP) ::SET UP FOR TRAP RETURN 
301 001 01 174 OO114C 65$: MOV wSHREG, SUR ;;POINT TO SOFTWARE SWR 

3p cata] piss 3 176 001142 MOV ISPREG, D y’ 

303 001502 012637 000004 66S: MOV S DEERAVEC ” RESTORE ERROR VECTOR 

305 

306 

307 


oF alien MACY11_27(722) 21-SEP-76 09:52 PAGE 7 
DZDRH.P ERROR POINTER THBLE 
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| 
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; 


ne ee aoe — - en 


bs 0 + oh he pe 
WOnNMUIC Wre-O 


GIGIGI WLIW GIWIGIG 


ab tar A aR Eh Shee RAL tM SLS Ah p ik ay 
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38 001506 


001514 


001516 


001524 
001S32 
001534 


001564 


SSRRsRseRsR 
ERFOGHRCEES 


a3 
S88 8 


WY 


oOoon 
ee 
-— 
Be 

rT 
je bh 
ora 


wee 


g 
3 


d 


d 


8 
8 


u 


an 


8 
& 


INITIALIE” THE COMMON 
012737 001534 


gE 


1 


BEBBSES 
massing § 


ist 
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§ 
415><12><12> 44.4. ate 


MOV sST2, 3810 
XOR R1,R1 

MOV #6, INSRT1 
MOV #6, INSRT2 
3R ST3 

ADD 84, R6 

MOV #12, 2810 
MOV #SWREQ, SWR 
CLR XCSRA 

CLR RCSRA 

MOV XVT2, IXVT 
MOV sI0Tt, axvT2 
MOV RVT2, aRVT 
MOV sI0TT, ARVT2 
CLR XVT 
CLR XVTe2 

CLR 
CLR RVT2 
MOV #340, aTKVe 
IC wBITe. aSTKS 
YPE 65S 
BR 

RSCIZ 
TYPE 67S 
BR 

.ASCIZ 
RDCHR 
MOV (SP)+.RO 
CMPB sD, #’AN 
BNE S 
TYPE 69S 
BR ag 

-ASCIZ #NO# 
IMP INPASK 


AN INSTRUCTION THAT 
, + 7 te ae - tenes 


LL C 7é9 OR 
LOWER CLASS MPDPLI CPU 10. TRAP TO “STe”. 
+ ort TRAP!MUST BE ON 11/40 OR BETT 


SPINSTRUCY TON GHEE He RETURN FR FROM A Oe TRAP CAL 


STRAPPED HERE IF 
;FIX THE STACK POIN 


RESTORE LOCATION 10 FOR FUTURE TRAPS. 
;#END PROGRAM TEST FOR CLASS OF COMPUTER. 

sPOINT TO SOFTWARE SWR. 

sCLEAR ADDR. OF OUTPUT CSR. 

“CLEAR ADDR. OF INPUT CSR. 

; RESTORE VECTOR IN CASE OF ILLEGAL 
“RESTORE VECTOR IN CASE OF 

ILLEGAL INTERRUPT. 


11/20 OR LESSER CPU. 


SFT KEYBOARD CTRTUS VECTOR. 
isTyee specie seat ; 


645 
ote) «12> aND-11-pebacAS 
i TYPE ASCIZ Z STRING 
RMINAL "Giant REQUIRED (Y OR N)? # 
i Bra ON STACK, 
NO? 


1S ANSWER 

;1F NOT CONTINUE. 

ii TYPE ASCIZ STRING 
3;;GET IZ 


;ASK FOR INPUT MODULE ADDRS. 








MAINDEC-11-DZDRH-A 
DZDRH.P1 


Pil 
364 pee 


Some, 


aE 


Ww 
“ 
- 


‘es 
376 002116 
377 O0el1l6 
378 O0el22 
379 O0e2le4 
= poss 
ie 
35> posta 
383 002136 
384 002136 
38S O0el4e 
386 
387 002200 
388 
383 002200 
330 O0ee0e 
3391 002204 
332 002210 
333 O0¢e2l2 
3H O0e22l6 
395 
3% 002254 
3397 002254 
inns: 
333 
400 002264 
401 002270 
402 
403 002316 
404 002316 
40S 
407 062320 
403 002332 
410 
411 002360 
is 002360 
4] 
414 002362 
415 002370 
416 002376 
417 O02e%0e2 
418 002406 


ag1327 
abos82 


104401 
000427 


e 


a 


1 


SES 


MACY11 27(732) 
INITIALIZE THE COMMON TAGS 


000131 


176624 
176620 


176576 


3$: 


Ss: 


:755: 


sug: 


iis 


6S: 


--795: 


78S: 


7$: 


;;61S: 


bbs: 


CMPB 
B 





KOe 
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RO, #’Y :IS ANSWER “YES”? 
1$ ‘IF NOT REASK QUESTIKN 
71$ ;; TYPE ASCIZ STRING 
+0 *:GET OVER te ASCIZ 
#YES# 
73$ ;; TYPE ASCIZ STRING 
25 -:GET OVER THE ASCIZ 
<15><12>#4.4.2 KEYBOARD CSR ADDR. OF NEW TERMINAL? # 
aSTKS 
(SP)+,R0 
PC, CKADR ;CHECK THAT ADDRESS IS LEGAL. 
4 “CARRY BIT SET ON RETURN MEANS NO. 
RO,R1 ;SET ADDR. OF NEW KEYBOARD CSR. 


75S ;; TYPE ASCIZ STRING 
ug *:GET OVER THE ASCIZ 
<15><12> 84.4.3 ITS VECTOR ADOR.? # 


;GET VECTOR ADDR. 


(SP)+,RO “ADDR ON STACK. 
#81TO,RO *ADD # ENTERED? 
6$ : TINUE 

77$ 3; TYPE ASCIZ STRING 

R THE ASCIZ 

<15><12>#0DD NUMBER NOT EXCEPTED! # 
S$ 
#176000, RO ;NUMBER TOO LARGE? 
7§ : NO-CONT INUE 

795 :; TYPE ASCIZ STRING 
29S -:GET OVER THE ASCIZ 
<15><12> #NUMBER TOO LARGE! # 
cs ;REASK QUESTION 
RO, #40 ;NUMBER TOO SMALL? 

1$ Nee IZ STRING 

$ *=GET OVER ASCIZ 
<15><12> #NUMBER Tb0 SMALL! # 
S$ sREASK GUESTION 
TKV2, JTKV sRESTORE PREVIOUS TTY VECTOR. 
#I0TT, aTKVe 
RO, TKY ;SAVE NEW TTY VECTOR. 
RO; TKVe 
#340, aTKVe ;PRIORITY 7 ON INTERRUPT 
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10$: 
401 Oo02426 TYPE $ i TYPE ASC! STRING 
AB adbe BR e Oven te he C12 
i898: SASCIZ <15><12> 44.4.4 paiNTER CSR ADDR. ASF NEW TERMINAL? # 
jou " - RDOCT :GET ADDR. 
eh MOV (sP)4 RO “ADDR. ON STACK 
004737 013264 JSR CKADR ; CHECK THAT ADDR. IS OK 
103742 BCS it IF NOT REASK. 
104401 o02S22 TYPE S$ ss TYPE ASCIZ STRING 
000416 8R 845 “GET OVER THE ASCIZ 
ii GSS: "ASCIZ <15<12>#SWITCHING TO NEW TERMINAL ® 
010137 001144 “MoV R1,$TKS 
062701 o00002 ADD #2'Ri 
010137 GO1146 MOV RI; STKB 


010037 001150 MOV RO, STPS ;STORE ADDR. OF PRINTER. 
062700 o0000e ADD #2, 
010037 001152 MOV RO, STPB 





443 
44d 104401 002614 TYPE 875 ;;TYPE ASCIZ STRING 

445 O02612 O0041S BR 86S ‘GET OVER THE ASCIZ 

nira -87$: -ASCIZ <15)<12>NEW TERMENAL ACTIVE. #15><1z><12> 
447 002646 bis: 














44g 
449 00264 005077 176272 INPASK: CLR aSTKS 
450 002652 104401 O02660 TYPE 65$ 5 TYPE ASCIZ STRING 
451 00c656 O00422 BR 645 “GET OVER THE ASCIZ 
tbe j AGS: "ASCIZ <15><12>484.4.5 C&R ADDR. OF INPUT MODULE? # 
sere cy 
454 104410 RDOCT ;GET ADDR. 
455 002726 012600 MOV (SP)+, RO “ADDR. ON STACK 
na) 002730 O47 77 013264 JSR PC, CKADR : SEE Is ADDR. LEGAL. 
1 BCS INPASK IF NOT-REASK. 
458 002736 010037 001204 MOV RO, RCSRA ;STORE ADDR. OF CSR. 
459 002742 062700 o00002 ADD #2,RO “MAKE ADOR. OF DBR 
40 002746 010037 001206 MOV RO; ROBRA *STORE DBR ADNA. 
462 002752 OUTASK: 
463 002752 104401 002760 TYPE 65S 5s TYPE ASCIZ STRING 
464 002756 000423 BR 64S *GET OVER THE ASCIZ 
465 2658: -ASCIZ <15)<12)#4.4.6 C&R ADDR. OF OUTPUT MODULE? # 
Hb6 003026 ~ 64s: snail 
ue oosas6 Af MOV (SP)+. RO i FOR ON STACK 
469 013264 JSR KADR “SEE IF ADOR. LE 
470 103745 BCS OUTASK :1F NOT-REASK 
W74 1 001174 MOV RO, XCSRA ;STORE ADOR OF CSR 
4 062700 ‘ ADD : FORM 
473 003050 010037 001176 MOV RO; XDBRA “STORE DBR ADDR 
474 003054 0605037 001272 CLR ST2CD ‘INDICATE HAD STARTED AT LOC 200. 
475 -SBTTL PROGRAM RESTART 


ola " pieces” MACY11 2@7(722) 21-SEP-76 09:S2 PAGE 11 
DZDRH.P PROGRAM RESTART 
476 
;*THIS SECTION ENTERED FROM START AT 210 OR tC 
483 
003060 012706 001100 RSTART: MOV #STACK, SP 
484 003064 005037 001100 CLR $PASS 
485 003070 005037 OOllle CLR SERTTL ;CLEAR ERROR COUNT. 
4 003074 posess 001304 CLR ERTYCN ;CLEAR # OF ERRORS TYPED OUT. 
4 pot 00 o 013434 176106 MOV SKEYSRV, aTKV 
0 30 


iy} 





488 1 RESET 
489 003110 012737 003130 oD0004 MOV #1$, 084 :SET FOR TRAP IF NO SWR. 
490 116 005037 000006 CLR aK 
49] 1 177570 TST 38177570 ;ADDRESS THE SWR IF TRAPS THEN NONE. 
H3e 003126 000407 BR 2s :NO TRAP - CONTINUE. 
494 003130 022626 1S: POPSP2 ;WE TRAPPED-MUST BE NO HARDWARE SWR. 
495 003132 Ole737 001302 001300 MOV #SWREQ, BSWR :SET SOFTWARE SWR AS ADDRESS OF SWR 
436 002140 012737 OO01162 001142 MOV #SREGO,DISPLAY ;MAKE SURE TO TAKE CARE OF DISPLAY. 
498 003146 012737 OO00006 OD0004 2S: MOV #6, 084 sRESET THE TRAP VECTOR. 
499 003154 0127327 104416 O00006 MOV sIOTT, dab ‘TRAP ROUTINE IN CASE OF ILL T 
S00 003162 005737 001272 TST ST200 :WAS THIS PROG. ORIGINALLY LARTED AT 2007 
S01 003166 001436 BEQ RSTe “LOC “ST200" ZEROED BY START ROUTINE. 
503 003170 104401 003176 TYPE 65S 35 TYPE ASCIZ STRING 
504 903174 000430 BR 645 “GET OVER THE ASCIZ 
50s +:65§: .ASCIZ <15><12>#PROGRAM MUST BE STARTED AT LOC 200 INITAILLY# 
S06 003256 64s: 
507 003256 o00000 HALT 
08 003260 000137 o00200 IMP a#200 
510 
S11 003264 RSTe: 
Si2 003264 104401 003272 TYPE 65S ;;TYPE ASCIZ STRING 
513 003270 000407 BR 64s “GET OVER THE ASCIZ 
514 65%: -ASCIZ ¢15><12>#4.4.7 MObE7s 
515 003310 bas: 
516 6903310 005037 001104 CLR SICNT 
517 003314 005037 001240 CLR PATOUT 
518 012777 013434 175666 MOV #KEYSRV, OTKV 
519 0033e6 0420777 000100 175610 BIC #8176, aSTKS sDISABLE TTY INTERRUPTS 
| 520 003334 104407 ROLIN :GET OPER TEXT. 
| Sel 052777 000100 175600 BIS #B1T6, ISTKS 
| S22 003344 012600 MOV (SP)+'RO ;ADDR. OF TEXT ON STACK. 
| S23 00334% 111037 001220 MOVE (RO) , MODE 
524 003352 121027 O00113 1S: CMPB = (RO) , #°K ;SLAVE AUTO MODE SELECTED “K"? 
| 6§25 003356 001002 BNE 
226 003360 137 005770 JMP = STARTS ;YES-GOTO START SLAVE. 
£28 003364 121027 000105 2S: CMPB ~=s- (RO), #’E ;MASTER AUTO MODE SELECTED “E"? 
c23 } 001002 . BNE 
30 00337e 000137 oDEcS4 JMP STARTM :YES-GOTO START MASTER. 
| 





MAINDEC-11-DZDRH-A 
DZDRH.Pil 


d 


—-Or- 
atts 
RB 


fs 


MACY11_27(722) 
PROGRAM RESTART 


000114 
0100Se 
000106 
0110Se 
000115 


‘006162 


000107 
000112 
014270 
o04b62 


000101 


001230 


003656 


001234 


000103 


21-SEP-76 09:S2 PAGE le 


3$: 


4$: 


cs: 


QE: 


1$: 


2s: 
OUTM: 


;65$: 


bas: 


1$: 


CMPB 
B 

JM 
CMPB 
BNE 
JMP 


(RO), #°L 
4g 

IMLT 
(RO), #’F 
S$ 

OMLT 
(RO), #°M 
STRTMS 
(RO), #°G 
(RO), #°J 
15 
STABLE, TABLEP 
INPM 
(RO), #°A 
2 


(RO), #°D 
OUTM 


ngs 


Ess 


; INPUT MODULE LOGIC TEST “L”? 
;YES-GOTO INPUT MOD. LOGIC TEST. 
;OUTPUT MODULE LOGIC TEST? 
;YES-DO OUTPUT MODULE LOGIC TEST 
;MASTER-SLAVE AUTO MODE? 

;YES-DO MASTER-SLAVE AUTO. 


;MODE > G? 
:NO- ser _BE 


;GOTO INPUT 


OUTPUT MODE. 
:MODE < = J? 
:NO-GOT TO BE OUTPUT MODE. 


MODE. 


;MODE < A? 
YES- UNM MODE. 
:NO-OUTPUT MODE 


;REA 


ss TYPE ASCIZ 
OVER T 


645 
(JE) <12> 84.4.8 shinee OF DATA 


’c 


67$ 


Ppa ASCI 


i SuTPUT OMOBULE ENTERED? 


STRING 
ee ASCIZ 


GET ADDR. RESPONSE 


QUESTION 
HAN SOURCE “D"? 


+ HO-REASK eK QUEST ION 
;STORE SOURCE OF DAiA 


fee FROM 
;YES-ASK FOR 


T OVER 


PROGRAM GENERATION? 
PATTERN. 


fue asc ASCIZ 


3 
¢1e><12) 84.4.9 STARTING PATTERN? # 


(SP)+, PATTRN 


bss 


;GET FROM OPER. 
; STORE 


;; TYPE ASCIZ STR 
;;GET OVER THE ASCTZ 


SPONSE ON STACK. 
SOUR 
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DZDRH.PLI PROGRAM RESTART 
; --69§: .aSCIZ «15)<12>84.4.10 PATTERN MODIFIER? 8 
x aig i ROLIN s GFT OPER RESPONSE 
Fe ie ii MOVE (Bo) BAYT iOOORe MODIFIER 
121 Bears ere (RO)! :GREA "A? 
os BLT IF SO-CONTINUE 
1027 occ104 CMPB 3 s«é(RO), 8D "LESS THAN, EQUAL TO ’D? 
e 86 3$ IF NOT REASK. 
=9g 0 014270 001232 4S: MOV STABLE, TEXTP § ;POINT TO SEGINNING OF TABLE. 
eo] Duie% CLR TTYPAT “CLEAR TTY CHANGE PATTERN. 
a ; 001174 — Tet xe ee IS AN PRESENT? 
es sy be . 
oe ites BNE OUTMWK TM ONT INE! 
604 003764 Ss: 
605 Oos754 104401 003772 TYPE 71§ ;; TYPE ASCIZ STRING 
£06 000421 eR >0$ *:GET OVER THE ASCIZ 
607 i718: -ASCIZ <15><12>8NO OUTPUT MODULE ADDR. ENTERED! s 
B03 os 33 000137 002752 "IMP OUTASK :ASK FOR ADDR. 
ell .SBTTL OUTPUT MODULE SOUTINES 
; INE TO TO AN MODULE 
| Sees ReuT INES eROOPAT™= TO A PATTERN 
| :#AND “SNOPAT™ TO DO ACTUAL ING. 
' 618 
| E18 gOND¥O ODDO OUTMWK: BR MODPAT :MODIFY OUTPUT PATTERN. 
| bet OO4O42 000137 o04322 OUTWR: JMP SNDPAT >SEND DATA 
| eee DO4YO4S 023727 001240 000103 OUTWR2: CNP PATOUT, #103 sDID WE COME FROM INPUT MOD ROUTINE? 
004054 001371 BNE OUTMIK :NO=LOOP 
bet 004056 000127 005100 IMP INPMWdK __TYES-RETURN. 
:#MODPAT ROUTINE USED TO MODIFY OUTPUT PATTERN 
. * PATFRO= FUNCTION 
:& 
2 # 101 PATTERN FROM SHITCH REGISTER 
! i 10e PATTERN FROM TTY. aa 
33 1 PATTERN FOR TABLE ‘ 
| ow 
| 638 Oow0be 123727 001224 000101 MODPAT: CMPB PATFRO,8’A PATTERN FROM SWR? 
| 633 001434 BEQ PSWR *YES-GO READ IT. 
| 641 -OOMO72 123727 001224 000103 1S: CMPB —s-— PATFRO, 8’C ;PATTERN FROM PROGRAM GEN? 
‘ 642 004100 001002 BNE 23 :NO-CONT INUE . 
| 43 GO4i02 000137 oo420e IMP PPM : YES-GENERATE 


ee ee tt ee a EE ED SD 


cee ee ee ee + 


(ee ae eee me 
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544 


as Tat ih ae Re 


Gl US 0 eS 


38 
ek 


8 
a 


3 
3 


OUTPUT MODULE ROUTINES 


lesve? O0i2e4 000102 2s: CMPB = 
13 oo4w04e SNF OUTWR 


017737 175104 001230 3S: MoV OTEXTP PATTRN 
le3e ADD it 

Oole 14642 4S: C text eTEXTE 
b01408 BEQ g 
000137 oo#o42 Ss: IMP — OUTWR 
012737 014270 001232 &S: MOV sTEXT, TEXTP 
000772 3R S$ 
17777 175112 174750 PSWR: ‘MOV DBSWR, ISWR 
ie 001230 MOV aSWR, PATTRN 
000137 oo4o4e2 JMP OUTWR 
; #PPI PROGRAM GENERATED PATTERN ROUTINE. 

i PATTM= FUNCTION 

# 101 INCREMENT 

;# 102 DECREMENT 

:# 103 *FLOAT O - COMPLEMENT 

i ing : COMPLEMENT 

123727 001226 000101 PPM: CMPB  PATTM,s’A 
001433 BEQ INCP 
123727 001226 000102 1S: CMPB sé PTT, 8°B 
001432 BEQ DECP 
123727 001226 000103 2s: CMPB =s- PATTM,8#’C 
001031 BNE COMP 
005737 001230 38: TST PATTRN 
901003 BNE 4§ 

001230 INC PATTRN 
000413 BR PPMEXT 
105737 001231 4§: TSTB = PATTRNGL 
001403 BEQ 6$ 
105737 001230 cs: TSTB = PATTRN 

1015 BNE COMP 
pneu 6S: CLC 

137 001230 ROL 
005137 001230 COM 
000137 oo4042 PPMEXT: JMP 





;FLOAT COMP. 





:PATTERN FROM TTY? 
; ScDONE TOMATICALLY. 
THE TABLE 


3 VES- 
sNO-SEND PATTERN 
sPOINT TO BEGINNING OF TABLE. 


;RERD SWITCH REGISTER 


; INCREMENT PATTERN? 
;YES-GO DO IT 


;DECREMENT PATTERN? 
:YES-GO DO IT 


;FLOAT O-COMPLEMENT? 
;NO-MUST BE STRAIGHT COMPLEMENT. 


 NO-CONT INUE. 
'YES-SET TO A ONE. 
sEXIT 

SHIGH BYTE=O (INDICATE COMPLEMENT)? 


;LOW BYTE=0 (INDICATES COMPLEMENT)? 
;NO-THEN COMPLEMENT 





~“y 
~~. 
wo 


HSS LRAESSAS IONOPHORE RON T ORS 


-OZDRH-A 


o- 


005237 


MACY11 €7{732) 


OUTPUT MODULE ROUTINES 


001230 
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INCP: INC PATTRN 
BR PPMEXT 
DECP: DEC PATTRN 
BR PPMEXT 
COMP: COM PATTRN 
BR PPMEXT 


5 #ROUTINE TO SEND PATTERN TO OUTPUT MODULE 


weer ee ee ee eeee we 


be ee 


ae 


8 

fy 

" 

ae 
i 


is 
8 


y 
8 
sat) 
i 


137 


i ie 8 as 


i 
ns 
: 


Shee 


Z 


Bf 


1 


Z 


174564 


e 


i 


L 


174544 . 


METHOD 

CONTINUOUS OUTPUT 
FLAG 

INTERRUPT OUTPUT. 


;DELAYED OUTPUT 
SNOPAT: CLR PS 
BIS #8100, axCSRA 
CMPB = MODE, 8/A 
BNE 1S 
IMP ANODE 
1S:  CMPB MODE, #°B 
BNE 
INP BMODE 
2$:  CNPB MODE, a°C 
BNE «3S 
INP = CHODE 


3$: JMP DMODE 


; INCREMENT. 
; DECREMENT 


; COMPLEMENT 


CONTINUOUS OUTPUT. 
:YES-GO OUTPUT 
;FLAG OUTPUT? 
;YES-GO OUTPUT. 

; INTERRUPT OUTPUT? 
sYES-GO OUTPUT. 
sDELAYED MODE . 
;GO0-OUTPUT 


;#ROUTINE TO DO A STRAIGHT OUTPUT. 


AMODE: MOV PATTRN, aXDBRA 

INP OUTWR2 

;#FLAG MODE OUTPUT. 
BMODE: JSR TSTFLG 

BIT AStT?. aXCSRA 

MOV BHODE , aXDBRA 

IMP OUTWR2 

;#INTERRUPT MODE OUTPUT 
CMODE: GETXC 

MOV #25, aXVT 

MOV 0340 axvTe 

BIS #81T6, aXCSRA 
1S: NOP 

MOV #340,PS 


——— 2 -- 


;LOAD OUTPUT. 


Oe ie 
;NO-WAIT. 
LOAD OUTPUT. 


CTOR FOR al tap dl 
‘PRIORY? Y 7 vray 
ALLOW I 


;LOCK OUT INTRS. 
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OZORH. P11 




















P OUTPUT MODULE ROUTINES 

758 o04so0 004737 004614 JSR PC, TSTFLG :CHECK REXMIT REQ. 

é 

238 O04SO4 005037 177776 CLR PS “NOW ALLOW INTRS. AGAIN. 

33 004510 000767 BR 1$ ~ 

a s#WILL INTERRUPT TO HERE 

763 O04S12 O22626 2 PoPSP2 

ree 4 013777 230 174454 MOV PATTRN. aXDBRA sRESET STACK 

cep peaeee Ba3553 30 174444 BIC #BIT6,axXCSRA DISABLE ENABLE. 

767 004530 013777 OOl2e0e 174444 MOV XVT2, axvTe2 

768 Oove36 01 104416 174436 MOV el0Tt, axvTe 

7693 177776 CLR PS sALLOW INTERRUPTS. 

320 004550 000137 O04046 IMP OUTWR2 

77 ;#DELAYED OUTPUT MODE. 

rn 004554 OS¢ 990001 174412 DNODE: eIs SB1T0,aXCSRA sDISABLE DRE. 

776 riaad 1 174402 : TSTB axtSRA 

777 004572 100373 BPL 

778 goer bier72 174372 BIC se »SXCSRA 

1 1230 174366 MOV PATT ;LOAD OUTPUT. 

730 004610 000137 INP 

782 004614 TSTFLG: 

763 ove l4 005777 174354 TST @XCSRA IS RECEIVER REQUESTING REXMIT 

100017 BPL 1$ OF DATA?? 

785 OO%Ge2 162737 001232 SUB #2, TEXTP 
| 786 004630 004737 007470 JSR PC’ RXMIT "2 THE PROTOCAL. 
| 787 004634 001224 000104 CHP PatERo 0,#’D “PATTERN FROM TABLE? 
| 788 OO%642 001 BNE 
| 789 OO4644 017737 174362 001230 MOV JTEXTP,PATTRN  ;YES RESET PATTRN. 
| 790 OO46S2 062737 001232 ADD #2, TEXTP 
| 791 OO4660 1S: 
| rae 004660 000207 RTS PC sEXIT BACK TO WHENCE YOU CAME. 
| 7 
| ;#INPUT MODULE ROUTINE MODES G-J 
| 79g 
/ 798 001204 INPM: TST RCSRA sANY ADDR ENTERED? 
| B00 itera ite BNE 1§ 
| B02 OO4E70 104401 004676 TYPE bss TYPE ASCIZ STRING 
B93 004674 000421 BR bu 3 OVER THE Bsclz. 
-65$: .ASCIZ <15><12>#NO we ULE ADOR. ENTERED! # 
/ BOS 004740 bg: 
B06 004740 000137 002646 IMP INPASK 
744 1S 
ES 744 04401 004752 TYPE 67S is TYPE ASCIZ STRING 
004750 o00423 BR b6$ “GET OVER THE ASCIZ 


oa 
e—- b= 
-O 


5367S: .ASCIZ (15><12)#4.4.11 METHOD OF REPORTING DATA ? 8 
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DZDRH.P11 OUTPUT MODULE ROUTINES 
g12 ooso20 SéS: 
19 04407 RDLIN GET RESPONSE 
ie pense brzeb0 MOV (SP)+ RO :ADOR OF RESPONSE ON STACK 
816 005024 011037 001240 MOV (RO), PATOUT : SAVE 
817 21 000101 CMPB = RO); 8A :> OR= TO 'A? 
g18 rag SLT 1$ 
81 lel 000104 CMPB =s« (RO), 8D :< OR= TO 'D? 
820 O0SO42 003340 =C«{ 85 1$ 
821 OOSO44 174136 TST JRDBRA 
822 00S0S0 013737 O01220 o01222 MOV MODE , MODEI 
Be3 0050S 162737 001220 #6, MODE 
825 
826 OOS064Y 023727 001240 000103 CMP PATOUT, #’C sCONNECTED TO OUTPUT? 
827 005072 901002 BNE INPMWK :NO- 
B28 005074 0900137 003S500 IMP OUTM :YES-MORE QUESTIONS 
830 .SBTTL INPUT MODULE ROUTINES 
832 
;#THIS ROUTINE INPMWK TAKES CARE OF MODES G-J 
:#0F READING DATA. 
837 
! B38 005100 op040e2 INPMWK: BR REDMOD GO READ DATA FROM MODULE. 
| BHO 905102 900137 005300 INPRD: JHP REPPAT REPORT DATA. 
;#REDMOD THIS ROUTINE DETERMINES HOW WE ARE 
i GOING TO READ THE INPUT MODULE 
| H MODE METHOD 
is G CONTINUOUS 
| 3% H FLAG 
* I INTERRUPT 
3% J DELAYED 
;* 
BSH 
855 005106 129727 001222 000107 REDMOD: CMPB § MODEI,8’G ;CONTINUOUS READ ’G? 
Bob 005114 OO1411 BEQ GMODE 
858 005116 123727 001222 000110 1S: CMPB =: MODEI, #°H sFLAG MODE READ 'H? 
653 005124 Ooo14ie BEQ HMODE 
861 O0S126 123727 001222 000111 2s: CMPB = MODE, #’I ; INTERRUPT MODE READ °I? 
bbe 005134 OO14i6 BEQ TMOBE 
864 005136 OoD0444 3S: BR JMODE ;DELAYED MODE. 


Fin 


;*ROUTINE TO CONTINUOUS READ 


g 
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DZDRH.P INPUT MODULE ROUIINE 
868 OCS14O 017737 174042 001242 GMODE: MoV SROBRA, PATTIN sREAD INPUT MODULE. 
63 005146 000137 005102 “ J INPRD 
87 ; ¥ROUTINE TO READ WHEN FLAG IS SET. 
:#) )WARNING<<IF D o AYING RESULTS IN DATA LIGHTS, A RESET 
73 :#(SYSTEM INITIALIZE) IS USED AND COULD CLEAR THE FLAG. 
875 005152 174026 HMODE: TSTBaRCSRA sFLAG SET? 
876 005156 100375 BPL HMODE -NO-WAIT FOR IT 
877 00516C 617737 174022 o01242 AO GRDBRA, PATTIN :YES-READ 
878 005166 000137 005102 IMP 
880 ; IMODE ROUTINE TO READ THE INPUT MODULE ON INTERRUPT . 
881 1 # #) 2HARNING << F DISPLAYING RESULTS IN DATA LIGHTS, A RESET 
B82 (SYSTEM INITIALIZE IS USED AND COULD CLEAR nODULES” “READY” FLAG (CSR 
Ee MBIT 7 ) AND NO INTERRUPT WOULD OCCUR. 
88S 005172 104411 IMODE: GETRC INTERRUPT VECTOR. 
886 005174 012777 005226 174006 MOV SET UP iffeRAUPT T VECTOR. 
887 poses 012777 000340 174002 MCV sab 3 SvT2 ‘PRIORITY INTERRUPT VECTOR 
888 005210 052777 000100 173766 BIS #BI1T6,dRCSRA = ;SET INTERRUPT ENABLE 
889 005216 005037 177776 CLR PS 
890 O00S222 000001 18: WAIT ;WAIT HERE FOR INTERRUPT MODULE 
e321 005224 000776 BR 1$ :SHOUD INTERRUPT WHEN IT RECEIVES DAATA 
| 893 005225 022626 2s: POPSP2 
| 894 005230 032777 000100 17374 BIT 8BIT6,SRCSRA § ; DISABLE ENABLE 
| 895 005235 017737 173744 O01e4e2 MOV SROBRA, PATTIN >READ MODULE. 
| B36 f05244 000137 ~ S102 IMP NPRD 
ox ;*ROUTINE TO READ DELAYED MODE. 
| 900 005250 042777 000001 173726 JMODE: BIC #BITO.ARCSRA  ; CLEAR DRE 
901 005256 017737 173724 OOle4e2 MOV JRDBRA,PATTIN ;READ MO 
992 005264 000240 NOP STALL 
993 605266 052777 000001 173710 BIS #BITO,aRCSRA  ;SET DRE 
304 905274 00137 00Si0e2 IMP INPRD 
#ROUTINE USED BY INPMWK TO DISPLAY DATA READ 
j SF ROM INPUT MODULE. XFERS CONTROL TO RIGHT ROUTINE. 
ii PATOUT= METHOD 
+ 101 bara LIGHTS ° 
* 102 TY OUTPUT ON CHANGE 
Le 103 RROR CHECK OUTPUT > INPUT 
is 104 RROR CHECK OUTPUT(OTHER CPU)>INPUT (THIS CPU) 
918 
919 005300 123727 001240 O00101 REPPAT: CMPB § PATOUT,#’A sDISPLAY IN LIGHTS ’A? 
920 b= 306 001 g 
321 10 000137 o0S604 IMP DISLGH ;YES-GO DISPLAY 
$23 005314 123727 001240 o00102 1S: CMPB = PATOUT, #’B sREPORT ON TTY 'B? 
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INES 
BNE 11$ 
JMP DISTTY ;YES-GO REPORT 
000104 118: CMPB) = PATOUT, #’D 
BNE 2$ 
JMP CIO 
;OUTPUT > INPUT 
es: INC SICNT 
SWCAL 
030000 CMP SICNT, #30000 
BNE 3$ 
CLR SICNT 
EOPCAL 
OOi242 38: CMP PATTRN,PATTIN ;DATA OUTPUTTED=DATA READ 
BNE S$ ;NO-REPORT ERROR 
4$: JMP 7$ : YES-EXIT 
SS: INC SERTTL 
173520 BIT #B81T13,aSWR ; INHIBIT ERROR TYPEOUT? 
BNE 6$ 
TYPE 65$ 33 TYPE ASCIZ STRING 


BR 645 GET OVER THE ASCIZ 
-65§: .ASCIZ ¢15)<12>8G00D DATA BAD DATA 


bag: 
TYPE 67$ 3; TYPE ASCIZ STRING 
BR 6$ ;;GET OVER THE ASCIZ 
ie?s: -ASCIZ <15><l2>8 & 


MOV PATTRN, -(SP) 35 SAVE PATTRN FOR TYPEOUT 
TYPOC :GO TYPE--OCTAL ASCII(ALL pIGITS) 
TYPE 69S i TYPE ASCIZ STR 

BR 68$ ::GET OVER THE AsciZ 


69$: .ASCIZ # 5 


b8s: 
MOV PATTIN, -(SP) $580. PATTIN FOR TYPEOUT 
TYPOC ;GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
6$: SWCAL 
173406 BIT #BIT1S,aSWR ;HALT ON ERROR? 
7$ ;NO TINUE 
HALTCL ;HALTED ON DATA ERROR 
;DATA TQ OUTPUT MODULE 
iDOES NOT MATCH DATA READ 
;IN_INPUT MODULE 
DATA OUTPUTTED in PATTRN 
DATA READ IN PATTIN 
173372 ys BIT #BIT14, dSWR CURRENT PATTERN (IF FROM TABLE) 
Be 8S VESe7s 


8S: IMP OUTMWK 

001234 9S: cH BTABLE, TABLEP ;BEGINNING OF TABLE? 

001234 MOV #TABLE-2, TABLEP :YES POINT TO END OF TABLE. 
BR et} tEXIT 
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DZORH.F11 INPUT MODULE ROUTINES 


980 005574 468737 ooo002 901234 :03: sus ue, TABLEP ;POINT TO ERROR DATA 
331 005602 762 R g “EXIT 
383 ;#DISLGH ROUTINE TO DISPLAY DATA 
935 05604 013700 001242 DISLGH: HOV PATTIN, RO DISPLAY USING DATA LIGHTS 
aps peer is 000100 173324 BIS 8BITb, ISTKS *REENABLE TTY INTERRUPTS. 
388 005620 000137 9005100 INP INPMWK t EXIT 
390 ;#ROUTINE TO TYPE INPUT DATA CHANGE ON TTY. 
ox 005624 023737 001244 oO01242 DISTTY: CMP PATOLD,PATTIN ;HAS INPUT DATA CHANGED? 
005632 901415 BE 1$ *NO-GO EXIT 
994 bOSbs 1044 SWCAL 
99s 032 o20000 173274 BIT 881713, ISWR : INHIBIT TYPEOUT? 
aa° Doce TOA ooseS4 ayeE Bs TYPE ASCIZ STRING 
998 ppeces BR 64 ::GET over e- aAsciz 
999 --65$: .ASCIZ <15><12e> 
1900 O0S&60 64s: 
1001 OOS660 013746 o01242 MOV PATTIN, -(SP) : SAVE PATTIN FOR TYPEOUT 
100e 005664 104402 TYPOC *GO TYPE--OCTAL ASCII(ALL DIGITS) 
1004 O0S666 013737 001242 oOO12e44 1S: MOV PATTIN, PATOLD ~~ PATTERN=NEW PATTERN 
100s 005674 000137 005100 IMP INPMWK 
1007 


S SROUT INE USED BY REPPAT TO COMPARE DATA IN TO 
;*TABLE DATA. 
j REPORT DATA MEATHOD ““D”" 


1015 

1016 

1017 005700 023777 O01242 173326 CIO: CMP PATTIN,@TABLEP ;DATA RECEIVED=TABLE DATA? 

1018 005706 001403 BEQ 1$ :YES-GOTO END. 

1020 005710 004737 O064SO JSR PC, SLERR :NO-REPORT ERROR. 

tee: : i rae 001234 1$ BR os 2, TABLEP UPDATE T POINT FOR NEXT DATA 
ec : : \ 
1023 Operas OBsre7 rite 014642 2S: CHP TABLE” #TABLEE ;DONE EMOLE  THBL ¢ 9 

1025 005734 012737 014270 001234 MOV aTABLE, TABLEP ;YES-RESET TABLE POINTER. 

His teeme fesre? SLID ooicoo ©» BELG ,esoo0 ‘dane Sat Pau Se 

ie Bieres cs e Edt 

1030 104413 EOPCAL sYES REPOR END 0’ PASS. 

1031 005760 005037 001104 CLR SICNT 

1933 005764 000137 005100 3S: IMP INPMWK EXIT. 

1035 .SBTTL SLAVE-MASTER AUTO SEND MODES 
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DZDRH.P SLAVE-MASTER. auto SEND MODES 


10 
103 


;#STARTS ROUTINE TO START SLAVE AUTO MODE. 


104 
ioe 05770 737 001204 STARTS: Ist RCSRA NY INPUT ADDR. ENTERED? 
1 774 001402 BEQ 1§ i NOLREPORT ERROR 
ine 005776 000137 006312 JnP SMST :YES-START SLAVE 
1 oos002 177776 18: CLR ;NO CLEAR TRAP gIT IN CASE OF ENTRY FROM STRTMS 
1047 OOE005 104401 006014 TYPE sess iS TYPE, Ast ASCI we 
1 — -65$: .ASCIZ Tien Input’ i etuce A ADDR HE ReCLZ 
1050 o0s0S4 bag: 
1051 006054 012706 001100 MOV BSTACK, SP :RESET STACK 
105¢ 008060 000137 O02646 JMP INPASK :GO GET ADDR. 
;#STARTM ROUTINE USED TO START MASTER AUTO MODE 
1057 
1058 006064 005737 001174 STARTM: TST XCSRA ANY OUTPUT MODULE ADDR. ENTERED? 
1059 O0E070 001402 BEQ 1 ?NO. REPORT OR 
1060 000137 007304 IMP MST :YES-START TEST. 
1062 006076 005037 177776 1S: CLR PS ;CLEAR T A} IT _ TRAPS IF RUNNING 
1064 0906102 104401 006110 TYPE 6S$ ioe asciy: ASCIZ STRING 
1065 006106 O00421 BR 64$ “GET OVER THE ASCIZ 
1066 +265: -ASCIZ <15><12>8NO OUTPCT MODULE ADDR. ENTEREDS 
1067 006152 45: 
1068 O06152 012706 001100 MOV #STACK, SP ;RESET STACK POINTER 
1068 006156 000137 O027S2 IMP OUTASK GET ADDR. 


seorere TO START MASTER (STARTM) AND SLAVE 
;#(STARTS) TINE IF BOTH INPUT AND OUTPUT RESIDE ON SAME CPU. 





1075 
1076 006162 012737 OD6064 00124 STRTMS: MOV #STARTM,PTRM | ;POINT TO BEGINNING OF MASTER ROUTINE 
1077 006170 012737 005770 001250 MOV aSTARTS,PTRS | ;POINT TO BEGINNING OF SLAVE ROUTINE. 
iS 006176 012746 o00020 MOV #20, -(SP) ;SET T BIT ON STACK 

/ 1080 O06202 O17 001246 MOV PTRM, -(SP) :GO TO MASTER ROUTINE FIRST 

/ 1081 O06206 O1 006232 000014 MOV aMTTRP, 3814 :SET FOR T BIT TRAP 

| 108 006214 012737 000340 O00016 MOV #340, ab16 “PRIORITY 7 ON T 

Pie O0be22 012737 000020 001254 MOV #20, SSLST -T BIT ao SLAVE STATUS 

| 1084 30 000002 RTI “EXECUTE FIRST INSTRUCTION OF 

| 1086 "MASTER ROUTINE 

| 1087 :4MTTRAP ENTER HERE ON TRAPS FROM MASTER ROUTINE 

| 1089 006232 MTTRP: 

| 1090 sYES MUST BE 11/40 OR 11/45 DO RTT 

| 1091 





a en ee 


MAINDE 

DZDRH. 
os 32 
EPS 
1 
iba? Boese0 
1098 
He 
tiot 006262 
110s 
ll 006262 
ios Ooesr4 
116 006300 
1107 006304 
1198 006310 
1l 
1110 
1111 
lille 
Hits 
1117 006312 
1118 
1119 
1120 906316 
lilel 006322 
llee 
1123 
iiss 006324 
ll 
1126 006332 
4 006336 
1158 
1130 006340 
1131 OO6&344 
is 
tia 
1135 
1136 
1137 
1138 006352 
1139 
1140 006360 
1141 
1142 006364 
1143 
1144 006372 
tie 006400 
11 
1147 006402 


-A 
1] OPO ave-nASTER AUTO S 





Tees 
12637 
1 
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E 


000014 


;#ACTUAL SLAVE FLOWS 


104401 


005777 
100375 


015226 
172662 


ooc4co 
172646 


172642 
900400 


001000 
015243 
014270 
014642 


172576 


172652 


172632 


001260 


001234 
001234 





INSRT1: 


STTRP: 
1$: 


INSRT2: 


SMST: 


SP1: 


SPe: 
SP3: 


SP3A: 


SISM: 
SP 13: 
SP14: 
SP1S: 


SP18: 
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NO MODES 


KO3 





Huy sare per ;SET TO TRAP TO SLAVE HANDLER 
NOY (5P)+) SMSST :26V6 MpaTeR Efarus 

my Breese) fue Se a 

2] tHE BE REPLACE TO RTT(COCIC6) IF 11/40 OR GREATER. 


;# STTRP ENTER HERE ON T BIT TRAPS FROM MASTER ROUTINE 


MOV aMTTRP, #14 EVE y rs yA MASTER HANDLER. 


MOYO SP a Sa 

MOV SMSST’ =(SP) ie a aang 

MOV PTRM, 1B) 

RTI SMTLL WE TREPEaCeD TO RTT(OOO006) IF 11/40 OR GREATER. 


-SBTTL SLAVE AUTO RECIEVE MODE 


TYPE  ,MSM ;TYPE “START MODE” 
-#INITIATED INTER-CPU-DIALOGUE 

tST JRCSRA ;STAT BIT SET? 

BPL SP1 *NO WAIT FOR IT. NOTE: STAT BIT SETS 


WHEN MASTER SETS ITS CONTR BIT (BIT 9) 
BIS #BIT8,aRCSRA § ;SET CONTR. BIT (SETS MASTER’S STAT BIT) 
TST JRCSRA iSTAT BIT CLEAR? 
BMI SP3 0 WAIT FOR IT. NOTE: STAT BIT 
EARS WHEN CLEARS IT CONTR BIT 
TST JRDBRA -DUMB READ 
BIC #B1T8,dRCSRA  ; CLEAR CONTR BIT 
.SBTTL SLAVE IMMED. SEND MODE 
;#IMMEDIATE SEND MODE 
MOV #1000, SXNO SET ITERATION COUNT 
TYPE MIM ;TYPE “IMMED. SEND MODE” 
MOV STABLE, TABLEP  ;POINT TO BEGINNING OF TEXT. 


CMP STABLEE,TABLEP ;DONE ALL TEXT? 
BEQ SPee ;YES POINT e2 


TSTB @RCSRA ;DATA AVAILABLE? 





LN galemamae 9 
DZDRH.P SLAVE IMMED. 


POLE SITIES | 


o 
™N“ 


hae me Be Ba Bs bm be Be bb hm Ba fe Be ew be Bf - Bn e b Bee Ps hh BB Bo be be bo Bs se fe be hb oh op he be pp ee 


en be ae be be be ae be ae Bae Be ae be Be te ee Bae Bae Pe Bae ae hs bo Pe Bae Be Pe be Bae Ps Paw baw bene hn ae Po has Penn Pe Pe fee Pe Hus Pe Pan ho Pe Pan pe h > = pas ue 
BIKRLGRLSSRVRRESRLS ISNA AaZInNASSS 


Bees 


ooieNe 


oo00d2 
006372 


006450 
006372 


172352 
000400 


040000 
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SEND MODE 


001242 
172610 


001234 


172460 


172336 
001234 


172362 


172342 


172256 
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SP16: 


SP19: 


SLERR: 


bas: 


; 678: 


66s: 


-695: 


bas: 


1$: 


SP17: 
SPe0: 


SPel: 


SP2e2: 





1S: 


-65S: 


LO3 


SP18 ;NO-WAIT FOR IT 


@RDBRA,PATTIN  ;YES-READ DATA 
PATTIN, JTABLEP ;DATA Benet LE? 
SP19 ;NO-REP 


RE E 
#2, TABLEP ‘YES-UPDATE TABLE POINTER 
sPis ‘LOOP 
PC, SLERR REPORT ERROR HANDLER. 
sPis 


#B81T13, dSWR Pe VE ERROR TYPEOUT? 
1§ ;YES-SKIP IT 


65S is TYPE ASCIZ STRING 
4§ T OVER THE ASCIZ 
715) <12> ERROR DATA GOOD DATAS 


67S 33; 1 YPE ASCIZ STRING 
6S 3;GET OVER THE ASCIZ 
(15<12>8 & 


PATTIN, -(SP) 33 SAVE PATTIN FOR TYPEOUT 
TyPE--OCTAL ASCII (ALL DIGITS) 
69S + Oe ASCIZ ue RING 

68S . GET OVER ASCIZ 


QTABLEP,-(SP) 5; SAVE. BTABLEP FOR_TYPEQUT 
:!G0 TYPE--OCTAL ASCII(ALL DIGITS) 


SERTTL 

#B81T11,0SWR CONT NS er ERROR? 
SP17 :NO-POINT 

#2, TABLEP ; YES-UPDATE POINTER 


#5IT8, IRCSRA ;SET CONTR BIT-REQUEST REXMIT OF DATA 


ARCSRA ;STAT BIT a SET WHEN MASTER 
SPe0 :NO-WAIT FOR IT 


JROBRA ;OUMB READ. 
#BIT8,dRCSRA ; YES-CLEAR CONTROL BIT 


SXNO ;XNO=XNO-1 DECREMENT ITERATION COUNT 
SP14 ;OTHERWISE ITERATE 
#B1T14, QSWR 
SISM 



























03 
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DZDRH.P SLAVE BURST SEND MODE 


4 -SBTTL SLAVE BURST SEND MODE 

1206 

1c ;*BURST SEND MODE 

ict3 006664 104401 9015267 SBSM: TYPE , MBM ; TYPE “BURST SEND MODE” 
isi 006670 012737 001000 O01e60 SPe4: MOV #1000, SXNO ;SET ITERATION COUNT 
ita at th 001260 SPeS: TST XNO ;DONE S TIMES? 

1214 1010 BNE eb :NO-CONTI POINT 26. 
ist? 006704 104414 SWCAL 

1217 706 pee 040000 172224 BIT #B1T14, dSWR 

1218 rat 1363 BNE SBSM 

1219 006716 SF32: 


1220 006716 104413 EOPCAL 
eel 006720 000137 006312 IMP SMST 
1223 006724 172254 SPeb: TST JRCSRA -STAT BIT SET? 
eed 006730 100375 BPL SPeb :NO-WAIT FOR IT 
lect 006732 052777 O00400 172244 SP27: BIS #8178, dRCSRA  ; YES-SET CONTROL BIT 
1228 008740 005777 172240 sPeg: TST JRCSRA ;STAT BIT CLEAR? 
1229 006744 100775 BMI SPe8 *NO-WAIT TILL CLEAR 
1231 006746 172230 SP29: BIC #B1T8,dRCSRA ; CLEAR CONTROL B 
le32 006754 012737 001262 MOV #STABL,STABLP  ;POINT TO BEGINNING OF TABLE 
1 762 012737 014270 001234 MOV #TABLE, TABLEP 
04411 ;GFET VECTOR ADDR. 
1235 006772 012777 007260 172210 MOV #BISR, IRVT ;SET FOR INTERRUPT 
1e3 007000. 012777 000340 172204 MOV #340, ORVTe “PRIORITY 7 ON INTR. 
1e3? 007006 052777 000100 172170 BIS #BIT6,adRCSRA § ;SET INTR. ENABLE 
1239 007014 042737 000340 177776 BIC #340,PS 
Le 007022 o00e40 SP30: NOP ;RECEIVE INTERRUPTS FOR EACH DATA XFER 
le42 007024 023727 001234 O14644 SP31: CMP TABLEP, #TABLEE+2 RECEIVED WHOLE TEXT? 
lea Garten Bye? ins at 
tev 000100 172142 BIC #BIT6,3RCSRA § :DON’T ALLOW INPUT TO INTERRUPT. 
1 1 14644 001 SP33: V TABL,STABLP ;POINT T GINNING OF STORAGE TABLE 
ie GEES BET OLN BB YSTSEESSUSBRE PRINT 78 EY 


: 


007056 172200 172150 SP34: CMP @STABLP,@TABLEP ;DATA RECEIVED=TEXT? 
1530 007064 001016 BNE SP37 ;NO REPORT ERROR 
i5ep 007066 062737 000002 O0l262 SP3S5: ADD #2, STABLP ;UPDATE TABLE POINTERS 
ices 007074 062737 000002 001234 ADD #2, TABLEP 
1eSS 007102 022737 O14642 001234 SP36: CMP #TABLEE,TABLEP ;COMPARED WHOLE TEXT? 
44 007110 001362 BNE SP34 ;NO-DO NEXT COMPARE 
1eS58 007112 005337 001260 SP36A: DEC SXNO ;YES UP ITERATIN COUNT 
1259 007116 000137 006676 JMP SPeS ; LOOP 


Be 


furu 
Nj 
~_ 


Ps ba Bae be b—2 =o bs Pe 2 bb Pe Pee 
Ria at 


RAS 


aINotat 
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007122 
007124 
bor 132 


007134 
007140 


104414 
032777 
001042 
104401 
900414 


eer 


MACY11 27(722) 
MODE 


o2c000 172006 
007142 
007200 
172022 
007222 
172024 
O011le 
004000 171664 
171722 9171774 
000082 O0lete 
o0000e O001e34 
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SP37: 


:;65$: 
é4s: 


i 


;: 698: 


b8$: 


18: 


BISR: 


;*#INITIAL INTER-CPU DIALOGE 


SWCAL 
BIT + ae eae 


TYPE Ph 


eC LLL LLL LLL LL 


j INATBIT ERROR TYPEOUT? 
;YES-THEN SKIP 


5 TYPE ASCIZ STRING 
;GET OVER he fucks 


SR a 
“ASCIZ <15><12>#ERROR pAtA GOOD DATA 


TYPE 67$ 
BR 6$ 
-ASCIZ <«19><1le>8 * 
MOV aTABLEP, -( SP) 


TYPOC 

_ TYPE 69S 
BR bes 
-ASCIZ # 2 


@STABLP, -(SP) 


SERTTL 


BIT #BIT11,aSWR 
NE SP36A 


SP3S 


;; TYPE sacle BTRING 
;;GET OVER ASCIZ 


; SAVE STABLEP FOR_TYPEQU 

:GO_ TYPE--CCTAL RSCYT{ALL. DIGITS) 
si Type ASCIZ STRING 

:GET OVER THE ASCIZ 


;;SAVE JSTABLP FOR eT 


;;GO0 TYPE--OCTAL ASCII( DIGITS) 


; CONTINUE? 
: NO-LOOP 


; INTERRUPT HANDLER FOR SBSM 


MO’! JROBRA, STABLP 
ADD #2, STABLP 
#2, TABLEP 


;READ_AND STORE DATA 


*USDATE STORE POINTER 


;EXIT THIS prema 


RTI 
.SBTTL MASTER AUTO SEND’ MODES-- START 





Z 
of 


“DZDRHA. (AYLI 270722) P1-SEP-7G 09:52 PAGE 2b 


> 26-0 © p= oO 9 6 oh - 0-2 & 20 — O-—— H-< O-- > ~~ Hw Hp i 


IW WWIII 
0 0 0-0 pp ee 
TU £Wwie-O 


PERS B RS BES SORTER 


0-— Os Bae pe bese Pn Fa Dae Dae Pen Be Ps Han Pe Bas ae Des Fs =o On 2 De Pe Ps Pas Pas Han P-2 Pw mn ho H-0 


PINS SAR EOm 


a rt a rn nn ne TC A ST LS 


BO4 


MASTER AUTO O0ES-- 


104401 C1S226 MST: TYPE » MSM ;TYPE “START MODE” 


0Se777 000400 171656 Pl: BIS s8IT8, aXCSRA sSET CONTROL SIT. 
;(SETS SLAVE'S STAT BIT). 


171652 Pe: TST aXxCSRA ;NO_MASTER’S STAT aT wo" 
BPL Pe SET WHEN SLAVE SETS IT’S 


:CONTR. BIT. 
:WAIT TILL SET. 


O42777 O0ONOO 171642 F:3: BIC SBIT8, sXCSRA ;CLEAR CONTR ot git. 
; (CLEARS *S STAT BIT). 
005777 171636 TST + pe 


-SBTTL MASTER IMMEDIATE SEND MODE 


;#ISM IMMEDIATE MODE SEND 


0S2777 000001 171626 ISM: 81S SBITO, @XCSRA ;SET BIT O. 

012737 001000 001256 MOV #1000, XNO ;SET XMITT LOOP TO S 

104401 015243 P13: TYPE » MIM ;TYPE “IMMED. SEND MODE” 

012737 014270 OO0l232 Fi4 MOV STEXT, TEXTP ;POINT TO BEGINNING OF TEXT. 
OOl232 Ol4é4¥e PIS CMP TEXTP, #TEXTE ;TRANSMITTED WHOLE TEXT? 

001016 BNE P16 :NO-CONT INUE. 

162737 00000: 001256 Pee: SUB si, XNO ; XNO=XNO-1 

001365 P23: BNE P14 ;IF NOT DONE S TIMES REPEAT. 
ovooon = 171522 BIT sBIT14, ISWR 

001350 BNE ISM 

18: 
000137 007574 IMP BSM ;IF S THEN BUST MODE. 
005777 i71S544 P17: TST aXCSRA wae wate wo BIT Sr SET BY SLAVE WHEN 
SE TRENST Ute 
100413 P19 rIF SO GO DO IT. 


000200 171534 PIE: + aaa ;DATA REQUEST SET? 


;IF NOT WAIT FOR IT. 
@TEXTP, @XDBRA ;LOAD DATA. 
#2, TEXTP ;UPDATE TEXT POINTER. 


017777 171564 171526 P18: 
062737 000002 O0le232 





z 
B 


= p= po 


a abba aad ot 


a 


> + > b= 0 & = b+ b= &-< 9 B= 0-2 b= 9-2 & 2 & <b = & 2 9 9 B= 9 — 9 &- + 9-0 § 2 2 fw He 


$898 PRESB Sa otal sald 


Hinaaes 6 8 


ee em eee tne ee ee ee ee ere — eee ee | 


ere ene oe ee eee + 


SEIRRSGRSE SE IRR 


BAD abs bh 8h hh hb he be HPS 


e 
ren 
Oo 


007470 


171412 


00040 





MACY1]1 é7( 722) 
INNES AiE SEND MODE 


00232 
171432 


171416 


171402 


001256 


171312 


000115 
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P19; 
RXMIT: 


big 


P20: 


Pel: 


P24: 


P32: 


CO4 


PS ;LOOP BACK 
py RXMIT 
#4, TEXTP ;POINT TO DATA TO BE RE-SENT. 


S81T13, aSWR ; INHIBIT ERROR MESSAGE? 
Pet ;IF SO-SKIP TYPEOUT 


65S ;;TYPE ASCIZ STRING 
4§ “GET OVER ASCIZ 
C18) «12> SRESENDIAG DATA: 


STEXTP, -(SP) $3305 aTEXTP FOR TYPEOUT 
GO TYPE--OCTAL ASCII(ALL DIGITS) 


#8178, aXCSRA I CONTR. BIT TO ACKNOWLEDGE 
AVE’S CONTR. BIT. (SETS SLAVE’S 
AT BIT. 
aXCSRA -STAT BIT CLEAR? ackEar WHEN 
;SLAVE SEES MASTERS CONTR SET. 
P21 'NO THEN WAIT. 


@BIT8, @XCSRA ;YES - CLEAR CONTROL (CLEARS 
;SLAVE'S STAT BIT). 


MASTER BURST MODE SEND 


, MBM ;TYPE “BURST SEND MODE” 
#1000, XNO ;SET XMITT NO. TOS 


XNO, #0 ;DONE 1000 TIMES? 
NO - CONTINUE. 


































MASTER BURST MODE SEND 

1411 007660 2s: 

: 007660 000137 007304 JMP MST 
1415 00764 000000 3$: WORD 0 
0S2777 OO004CO 171300 Pet: BIS SBIT8, JXCSRA ;SET CONTR. BIT. (SET SL 
+ TER" S CONTR AND Mee rs ITs 
171274 Pe?: TST aJXCSRA : STAT IN BiT SET YET? 
100375 BPL P27 ;IF NOT SET - WAIT FOR IT. 


1IF 


042777 O00400 171264 Pes: BIC SBIT8, @XCSRA ;CLEAR lin BIT (CLEARS 
1427 ;SLAVE’S STAT BIT. 
GET INTERRUPT VECTOR. 


£ 
a8 
mw © 
a 3 
Ni 
| on ] 
8 
o 
5 
# 
fr 
2 


ts aXVT ;SET UP_INTERRUPT VECTOR. 


j -OZDRH-A MACYI1 E7(732) 21-SEP-76 09:52 PAGE 26 
DZDRH. 
340;  aXVT2 ;PRIORITY 7 ON INTERRUPT. 
| 
i 
| 
! 
| 


MO 
007720 MOV 
007726 042777 000001 171240 BIC #BITD, AXCSRA ;CLEAR ACCEPT. 
1434 007734 012737 014270 OOle32 ¥ -STEXT’ «=TEXTP :POINT TO BEGINNING OF TEXT. 
1436 oo77ve 017777 171264 171226 P29: MOV § @TEXTP, @XDBRA ;FORCE 1ST XFERR. 
1437 062737 O00002 ODle32 ADD —Ctsék? TEXTP POINT 19 NEXT WORD ON INTR. 
1438 007756 052777 900101 171210 BIS 5 XCSRA ;SET INTR ENABLE, DATA EXCEPT. 
1439 07764 1 Ic #340, PS 
1440 ood240 P30: NOP DATA REQUEST INTERRUPTS 
1442 007774 001232 OLY644 P31: CMP TEXTP, aTEXTEN2! ‘WHOLE TEXT YET? 
wi 010002 5999 BNE P30 NO GO BACK ARD : 
1445 010004 000001 001256 SUB tiéatd XNO sYES, XNO=XNO -1 
1a 010912 000137 IMP pot :GO Span TO MAIN LINE 
;#INTERRUPT SERVICE ROUTINE FOR BSH) 
#LOADS NEW DATA CHECKS FOR END OF TEXT. 
teIF END IS REACHED, INTR. ENABLE. 
10016 017777 171210 171152 ISR: MOV | @TEXTP, OXDBRA ;LOAD NEW DATA. 
10024 63727 001232 O14b4e CMP -—«TEXTP,’ &TEXTE ;XFERRED WHOLE TEXT? 
1 1003 BNE Os 3 "NO - EXIT 
10034 042777 000100 171132 BIC 8BIT6, @XCSRA ;YES - CLEAR INTR. ENABLE. 
1 
1 


oo O000 


e 
a 
= 


18: ROP 82, TEXTP 
RTI ;RETURN FROM INTR. 


-SBTTL INPUT MODULE’S CSR/DBR TESTS. 


coe 


INPUT MODULE’S CSR/DBR TESTS. 


;#INPUT MODULE’S CSR, DBR TEST 
: #ENTER WITH: RCSRT=ADDR. OF CSR UNDER TEST 


MAINDEC-11-DZDRH-A RACY e707 732) 21-SEP-76 09:52 PAGE 29 
DZDRH. P11 
:# ROBRT=ADOR. OF DBR UNDER TEST 
1471 
1aZe 0100S2 013737 001204 001120 IMLT: MOV RCSRA, S$GDADR ;SET CSR ADOR FOR ERROR TYFUT 
1474 : 5 RRERFFLAAAAAASAAARAAAAA RA LAA RARE AAA LARA ALAR SLAALA LEA RERAALAL FLERE 
1475 ;# T #TEST CSR ADDRESS ABILITY 
14 “Os a eigen epn mR RN cinema 
1477 010060 o00240 +67 NOP 
14 010062 012737 010070 001106 MOV #3$, SLPADR ;;SET SCOPE LOOP ADDRESS 
rt bipur4 Dizva? 10110 000004 HOY Hi’ ae SET LOG IN CASE OF “TRAP™ IF C&R DOES NOT RESPOND 
rt if 102 eet raters TST 3RCSRA c 
1483 010106 o0040e2 BR NO-TRAP IF HERE - NEXT TEST. 
1485S 010110 1S: ; TRAP HERE_IS CSR DOES NOT RESPOND BY RETURNING SLAVE-SYNC. 
1 d1g1ig 022626 POPSP2 RESET ACK POINTER. (Ré 
1487 O10il2 104000 ERROR *NO sponse Ge UNDER TEST. 
1488 3638 IN RCSRT. 
1469 010114 012637 oc0004 2s: MOV (SP)+, aa4 STORE CONTENTS OF LOCATION 4 FROM STACK. 
| 1491  KEEFEEEEEEXE KFS EES EAAER ESL ELE LF AA LAE REFS HSAA FR EF EA RARE EH RELELES 
1492 TEST é #TEST DBR ADDRESS ABILITY 
1493 o  LEKKSEETEKSLER KEES SEES ELSE PELE ESS ELERE RSS SHREEESRESAYARERA LATHES 
12 010120 ocoo04 téT2: SCOPE 
; 44 101 1 MOV ae4, -(SP) TENTS OF OCATION STACK. 
| a4 Bt i5E 1 tee 900004 MOV #1$ AY ruse. a} Sask OF tpNe Ie IF DBR DOES NOT RESPOND 
/ 1498 010134 005777 171046 TST JROBRA 
1493 010140 000402 BR Fa 3 NOIR Shae opr HERE - NEXT TEST. 
! 1501 010142 1S: : TRAP HERE IF DBR DOES NOT RESPOND BY RETURNING SLAVE-SYNC. 
' $503 010142 d2e626 PopSP2 sRESET STACK POINTER (R6). 
| 1508 010144 104000 ERROR *NO RESPONSE FROM DBR UNDER TEST. 
te 01014 012637 900004 2s: MOV (SP)+, ae4 sRESTORE CONTENTS OF LOC. 4 FROM STACK. 
| 1508 oREKAEKREREAAAELELREKLEA RASA E REALL SA ELELEARERERA RE LHAA RE LLAHALAERE 
| 1509 tETEST 3 *TEST THAT CSR BIT O IS SET ON INI 
{ 1510 2 ESEESAEESREREEKAEE RE SAKE LRELRAE REESE RE ERAKARFER REE ESHA ELE TARE RE 
1511 010152 ooc004 T3: SCOPE 
161¢ 010154 012737 oo0002 001166 MOV #2, STIMES ;:D0 2 ITERATIONS 
| 
/ 1514 010162 005737 001100 TST SPASS ;ONLY DO THIS TEST ON PASS 1. 
1515 10166 001014 BNE 1$ 
| 1e15 bi eee 171006 0011 nor ™ DRCSRA, SBDDAT ;READ CSR. 
1618 O1e06 oy 77776 BBL Loe BIC #177776,$B0D0AT ONLY WANT BITO . 
' 4519 010206 35937 1 001126 CMP #1, SBDDAT 31S IT SET? 
1520 010214 O01401 BEQ 1$ sYES - NEXT TEST. 
| 1622 010216 104000 ERROR :CSR BIT Q NOT SET ON INIT. 




















T3 #TEST THAT CSR 8 IS SET ON INIT © 
1523 ;CSR DATA IN S$BDDAT. 
1 010220 18: 


S24 
1525 
1358 ss PERERA RAESSASAAFREAA SAA ALL RAALALAAKALALEA ALARA RAKES LAA LAL ALLELES 
1 :kTEST 4 #TEST THAT CSR BITS 6,7,AND 8 ARE CLEAR ON INIT. 
1S28 ME TOTTTTT TITTLE TE TTT TTT TTT TTT TT TT TET TTT TTT TTT TTT TT TTT TTT TY 
1509 téT4: SCOPE 
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DZDRH.P11 IT 0 
1 
1553 idee? Biers? poonoe ovis "AN SBASTINES © D0. @ ITERATIONS. A case 
13h psy ater BNE 1$ : ' 
1533 010036 104417 RESETC 
1534 010240 032777 000700 170736 BIT #BIT6!BIT7!B1T8,IRCSRA ;SEE IF BITS 6,7,8,AND 15 ARE CLEAR. 
1538 01024 001401 SEQ 1$ 
1537 :CSR BIT(S) 6,7,8, OR 1S NOT CLEAR ON 
1838 010250 104000 ERROR SYSTEM INITIALTZE. : 
1540 010252 1S: 
1Bis 5, REREAERELEE AERA AE LAA LE RELAEEAELLL SES ELAL ELLA ELAELELARELLAERERE 
1 t&TEST S ¥TEST THAT CSR BITS 0,6, AND 8 CAN BE CLEARED 
1S44 ME TTTTTETTT TT TT TTTTE TCT TTT TT STTET TEESE TETTETETETETOT TTT ETT TTT TT 
1546 10252 p0000 tSTS: SCOPE 
1546 10254 012727 000005 001166 MOV #5, STIMES D0 S ITERATIONS 
1548 O102b2 005737 001100 TST SPASS 
les HE Teas Bere 7 BITS 0 801. 
ieee ee ES Bs taITBIBITB, ARC T BITS & AND 8 
1 ot Oe? 000501 170670 BIC wb TEIBTTE BRCSRA. ASE 
| fees Qiosee ob Apee] DOL ISe OY SBT TOTATSErbT Te, SEBOAT SEE IF ANY ARE SET 
| See pt ss5 | bbi4a4 Q ig ong OHO” CONTINUE 3 
' 4558 01033 104000 ERROR ;CSR BIT(S) 0 AND/OR 1 AND/OR § AND/OR 8 
1559 :COULD NOT BE BIT CLEAR. CSR RESULTS 
1560 IN SBDDAT. 
| 1562 010334 052777 000100 170802 1S: BIS 8B1T6, ISTKS RE-ENABLE TTY INTERRUPTS. 
| 1563 019342 905077 170636 ALR ORCSRA 
| 156i 010346 005037 177776 CR PS 
1566 5 5 RHRRERELERELELE RESELL LRLELE LAL LEEREL RE EE LELE REL LL LELELALR EELS 
| 4667 &TEST 6 #TEST THAT CSR BITS 6, AND 8 CAN BE BI 
} 1568 METTTTTETITETTTTTTSET TTT TTTTTTTSCTETI TEST ETESETETOSTSS ESTOS TT TT 
1569 010352 o00004 tT: SCOPE 
i 
| $571 010354 012737 000340 177776 MOV #340, PS 
| 4572 O1 042777 000500 170614 BIC #8176'BITB, ARCSRA sMAKE SURE THEY ARE CLEAR 
| 1673 01 052777 reat 170606 BIS #BIT6IBITS,ARCSRA ;THEN SET THEM. 
| 4 0 017737 170602 001126 MOV DRCSRA, SBODAT ;READ CSR. 
| 1576 010404 042737 177277 001126 BIC #177277, SBDDAT ;STRIP AWAY OTHER BITS. 


77 
| 1578 010432 023727 001126 000500 CMP SBDDAT, #BIT6!BITS ;DID THEY ARE SET? 


| 


1579 


SeeRReEReS 


b-- G-- P= b= + p> HB = Po BS 


EE Loans 
DZDRH.P11 


010420 
010422 


010424 


O1480 


010434 
010436 
010444 
010450 


010456 
010462 


010464 


Té 
001401 
104000 


est Th 


170SS4 
177776 


yas 
000400 


000001 


170540 
170S26 


170892 
170474 


170462 


001274 
170520 


1 





SEP- % 8:52 PA 
affsre’ Ro § CAN BE ge SET 
BEO 1$ 
ERROR ;CSR BIT(S) O GNO/OR & AND/OR 8 
sDID NOT BIT SET. “©® RESULTS IN 
;$BDDAT. 


1$: 
CLR JRCSRA 
CLR PS 


5s RRARERRASAAAELALA LE LALA ALAA LAE LA LAL ELA LARA ELA LLL ELALALELLLELELS 
-KTEST 7 *TEST THAT BIT 7 WILL SET N BIT 8 IS SET 


jpecceetnreeeneninsnennesnusaunnnnaseasensenanensnnnenntennenanm 
T7: SCOPE 


BIC #BITS8,IRCSRA §; MAKE SURE BIT 8 IS CLEAR. 
TST A ;THEN MAKE SURE BIT 7 IS CLEAR 
BIS #BIT8,adRCSRA § ;NOW SET CSR BIT 8 SHOULD SET BIT 7 
:VIA He MAINTANCE LOOP BACK CABLE. 
TSTB ORCSRA ;DID BIT 7 SET? 
BMI 1$ > YES-NEXT TEST. 
ERROR ;SETTING CSR BIT 8 FAILED TO SET CST BIT 7 VIA CABLE. 
18: 
s SELSEEREE RSE ESSERE SSEEE ESSER EEE EEL LE EEE GREER ERE LER ESE EE EES SESE 


10 *TEST LOW BYTE OPERATION OF INPUT CSR. 
i TetoetDesgsnsttstssioedissrsoesisteetiaesetinasessees 


;MAKE SURE CSR STAT OUT CLEAR 


CLR JRCSRA : 
VB  #B8IT8'BITO RC -SET DAE-SHOULD NOT SET STAT OUT 
BIT #81708, aRCSRA ;DID stat yout SET? 

BEQ 1$ :NO-CONTI 


ERROR ;CO=1;C1=1;BUS ADDR. O0=0; BUT WROTE 
; INTO’ HIGH’ BYTE OF MODULE’CSR WORD. 


1S: BIT #BITOO, ARCSRA ;MAKE SURE WE DID SET BIT O. 
BNE es ;YES-NEXT TEST. 


ERROR - FAILED TO SET BIT 00 IN CSR ON A 
;MOVE BYTE INST. LOW BYTE OPERATION. 


; EE He Heenvea re nrerrenreenie renee nernienieneeernerreannts 
*TEST HIGH BYTE OPERATION OF 


‘ATE 
| aaneanAeseneaeusitsahnnessasntuSnGsiSOOAEORA0EORESEEEAEOEEOA 
ll: 


CLR ORCSRA MAKE SURE DAE AND STAT OUT =0. 
oad ps STEMPO SET BUS ADDR. BIT OO OF ADDRESS. 
MOVB #BITS!BITO, ISTEMPO ;SEND WHOLE WORD TO CSR ONLY STAT 


OUT SHOULD SET (HIGH BYTE OPERATION) 
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DZDRH.P11 Tl *TEST HIGH BYTE OPESATION OF CSR 


1 0105S4 032777 000001 1704e2 BiT WBITOO,ORCSRA ;DID BIT OO SET? 
1638 010562 001401 BEQ 1$ :NO-CONTINUE. 
l 010564 104000 ERROR :CO=1:C1=1;A00=1 BUT WROTE I INTO 
te : at AttE oF MODULE C&R 
O10566 932777 000400 170419 IS: SIT #BITOS, JRCSRA ;MAKE SURE STAT OUT HAD SET. 
10578 001001 BNE 2s IF SO-NEXT TEST. 
010576 104000 ERROR -FAILE IT 08 IN ON A 
in me MOVE Bre fisTe- feu WYER OPERATION. 


PTT UTI TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TT 
TEST le NPUT MODULE INTERRUPT TEST 


ja» WARNING (CC eRH 
A MAINTANCE LOOP BACK CONNECTOR IS NEEDED FOR THIS 
 TEST(S) OR THE TESTS WILL FAIL. 


16 5 HED) END OF WARNING <<< ### 
1658 s SEFSLEAERKSLELASLLLELA ALA RALERAEAALFAALATHALAELARAELAALAEAALLEEEE 
1659 O19600 op0004 jit T12: SCOPE 
| 1660 010602 012737 OO00001 O01166 MOV #1, STIMES ;;D0 1 ITERATION 
bbe 910610 104411 seanad GETRC arid Senne GET INTR. VECTOR + PRIORITY. 
ies 31 oeo5 eee aes Bit JRDBRA ;RESET ALL CONDITIONS IN INPUT + OUTPUT CSR’S. 
1665 010624 013700 001210 MOV RVT RO ‘GET VECTOR ADDR. OF RECEIVER. 
| 1666 010630 012737 O00340 177776 MOV #340, PS *LOCK OUT INTERRUPTS. 
| 1668 010636 1271 010876 MOV #15 (0) ;SET UP INTERRUPT VECTOR 
; 1669 010642 O1 oo0002 001274 MOV 2(RO), $TEMPO SAVE CONTENTS OF VECTOR x2. 
1670 010650 0127f1 000340 000002 MOV $340,’ 2(R9)  ;SET PRIORITY ON INTERRUPT. 
| 4672 010856 052777 000500 170320 BIS #81T6!BITS,aRCSRA ;SET INTERRUPT ENABLE, AND CONTROL BIT. 
| 1623 010664 O0S037 1776 CLR = PS sALLOW INTERRUPTS. 
| 1675 019670 900240 NOP ;SHOULD INTERRUPT FROM HERE. 
1677 010672 104000 ERROR ;NO - INTERRUPT FROM INPUT MODULE. 
| 1679 010674 O00406 BR 2s 
| 1661 sMODULE SHOULD INTERRUPT TO HERE. 
| 4683 010676 O22626 1S: POPSP2 RESET STACK PRINTER (R6) 
| 1684 010700 042777 oO0CSO0 170276 BIC #8176!BIT8, arcsRA CLEAR INTERRUPT ENABLE. 
| 4685 010706 005037 177776 CLR PS 
168 010712 005777 170270 2s: TST JROBRA RESET ALL CSR BITS. 
te t4 oREESEEERELFRLKS ERFX SRL RHEL ESERERKE REL EK ERPS ER LES E HAF EGE EARS RLE 
| 1689 thr TEST 13 #THAT THE INPUT MODULE WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 
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PAGE 33 
T13 ®THAT THE INPUT MODULE *T INTERRUPT IF CPU IS AT SAME PRIORITY 


jae» WARNING (< ( ## 

A MAIN Ta LOOP BACK CONNECTOR IS NEEDED FOR THIS 
i TEST(S) OR THE TESTS WILL FAIL. 
pH) >) END OF WARNING <<< ### 


s SRERESESALLEEKE SAE SLASRRAEAALLELSASE SELES FEAL ELSSRAESERE LAFF ARAFLE 
oo00004 agente SCOPE 
012737 000001 001166 MOV #1, STIMES sok 1 ITERATION 
005777 170254 TST JRDBRA Init Ges 
104411 Int vECTO i +, PRIORITY 
013700 001210 008— Nov Rv" RO OF INPUT MOD. 
ot 10 01101 MOV sig.’ By nt IN ch Pines, FOR INTR. 
1 ooon02 MOV 8340, 2(0)  ;SET PRIORITY ON INTR. 
O00S00 170216 BIS #817T6!BITB, IRCSRA T INTERRUPT ENABLE. 
013737 O01266 1 RVTP, PS Set SSOR PRIORITY TO THAT OF 
: INPUT MODULE. 
000240 NOP ;WILL INTERRUPT FROM HERE IF ANY. 
042777 900500 170200 BIC #BIT6!BITB,IRCSRA ;NO INTR. CLEAR INTR. ENABLE. 
005027 177776 CLR PS ALLOW INTERRUPTS 
000407 BR 2g 
;MODULE WILL INTERRUPT TO HERE IF ANY. 
022626 1S: POPSPe2 RESET STACK POINTER (Rb). 
042777 000500 170162 BIC #81T6!B1T8, aRCSRA s CLEAR INTERRUPT ENABLE. 
005037 177776 CLR PS sALLOW INTERRUPTS. 
104000 ERROR ;REPORT ERROR - INPUT MODULE 
INTERRUPTED WHEN CPU WAS SET AT 
; IORITY AS IT WAS 
010001 2s: MOV RO,R1 
005721 TST (i+ 
010110 MOV Ri. (RO) 
013760 001164 o00002 MOV STHPO, 2(RO)  ;RESTORE VECTOR +2. 
104413 EOPCAL 
900137 o100S2 3S: IMP IMLT 
.SBTTL OMLT OUTPUT MODULE CSR/DBR TEST. 
:#OUTPUT MODULES CSR, DBR TEST. 
sSENTER WITH:  XCSRA=ADDR. OF CSR UNDER TEST 
XDBRA=ADDR. OF DBR UNDER TEST 
013737 001174 001120 OMLT: MOV XCSRA,SGDADR § ;SET CSR ADOR. FOR ERROR TYPOUT 








T14 #TEST CSR ADDRESSABILITY 


s ELELLLAEAAFALELALLELA SLA SEAR LLL ERLE RELELA LAL RAL ALA LELEPALELELSLE 


ATEST 14 #TEST CSR ADDRESSABILITY 
os “Sar” soo ppamenpeee-o-nwapenrtmgireranmemmmnny ee 


000240 tST14 
012737 011070 001106 MOV #3$, SLPADR ;;SET SCOPE LOOP ADDRESS 


060 
C62 
oe 1 3$: MOV ae4, ~(SP) 


aaa; ? 


a 
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DZDRH.P11 
1 
1 O11 
1 O11 
1752 
1753 11 CONTENTS OF LOC. 4 ON STACK 
1 11 12727 011110 oo0004 MOV $1$ as4 ;SET LOC. 4 IN CASE OF TRAP IF CSR DOESN’T RESPOND. 
1 11102 777 170066 3! gxCSRA 
: 11106 $ : HERE - NEXT TEST. 
1758 011110 1S: ; TRAP HERE IF CSR DOES NOT RESPOND BY RETURNING SLAVE-SYNC. 
1759 011119 022626 PopsP2 sRESET STACK POINTER (R6). 
1760 llll2 104C00 ERROR ?NO RESPONSE FROM CSR UNDER TEST. 
i7ee 011114 012637 o00004 2S: MOV (SP)+, ae4 sRESTORE CONTENTS OF LOC 4 FROM STACK. 
17e8 A I 
1768 “mm aan ene ecmeneme napa nemenanapimeneette nin ages 2 Pbidhe 
a4 011120 o00004 +éT15: SCOPE 
1769 011122 013746 O00004 MOV ae4,  -(SP) ;SAVE CONTENTS OF LOCATION 4 ON STACK 
1770 O111e6 012737 011142 o00004 MOV #1$ as4 *SET LOC. 4 IN CASE OF TRAP IF DBR DOESN’T RESPOND. 
| 1271 O11134 005777 170036 TST aXDBRA : ADDRE DER. 
i 11140 000402 BR 2s ?NO HERE - NEXT TEST. 
177 011142 : 1S: ; TRAP HERE IF DBR DOESN’T RESPOND BY RETURNING SLAVE-SYNC 
1776 O11142 O2c626 POPSP2 RESET STACK POINTER (R6). 
1777 104000 ERROR *NO RESPONSE FROM DBR UNDER TEST. 
| i778 011146 012637 oo0004 2s: MOV (SP)+, aa4 ;RESTOER CONTENTS OF LOCATION 4 FROM STACK. 
j 1781  SEKEARSRAXREREAA LALA RE RAAEAE RHEAREAERARAELELARLERALARERALARELEE 
| 176¢ tETEST 15 *TEST THAT XMITTER CSR BIT O IS SET ON INIT 
1 " oR KKERSLE EE LELKR KLEE KKK RREE LLY RHE RE LELE RS REESE REE REEL REX EKER ERE EE 
| 1784 011152 o00004 +éT 16: 
| i785 011154 012737 oO00002 001166 MOV #2, STIMES : ITERATIONS 
17m Ollibe O0s737 001100 TST $PASS ‘incy® DO THIS TEST ON FIRST PASS. 
| 1767 11166 O01011 BNE 1$ 
| 1789 011170 042777 OO0001 167776 BIC #BIT0, @XCSRA ;MAKE SURE CSR BIT O IS CLEAR. 
1791 011176 104417 RESETC ; ISSUE SYSTEM INITIALIZE THIS 
| 1535 11 000001 167766 IT ITO, aXCSRA ef To grt 1 0 Ser. 
| ig ibe B85004 ' BAe ig ’ dR > NEXT eet 
17% 011210 104000 ERROR ;QUTPUT MODULES CSR BIT O FAILED TO 
| 1797 SET ON INIT. 
1798 
| 1233 oui 18: 
1801 eo SRELSLLEESRESEX ERE EERE SERA REESE RREAR ELA KHER RA SERAREFA ELE RERE RRA LE 
| 1802 t ETEST T 17 *TEST THAT OUTPUT MOD. CSR BITS 1,6 AND 8 ARE CLEAR ON INIT. 
j 
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*TEST THAT OUTPUT MOD. CSR BITS 1,6 AND 8 ARE CLEAR ON INIT. 


$a pci ye concer enue apm amsmmniIn ie seen 605 


MAINDEC-11-DZDRH-A 
OZDRH.P11 Tl? 


Seenet 


DBDODOMOWDMOMOM® 
WONMUIL WwiuO 


Bos Be Bs hs FB bee 2 he bb be Fb hs be hb hs bb ht bh Be b= + b= Bb 8 Bs 2 hb 2 hb  O  B  -2 § -= B ep e 


BARREOR ASS eR LORS REIRSON Se PRS 





KO4 








001166 
177776 
167730 


167720 
001126 


001166 


001126 


001166 





21-SEP-76 


09:S2 


#2, STIMES D0 2 ITERATIONS 
rst SPRES ‘ONLY DO THIS TEST FIRST PASS. 


MOV #340, PS 
BIS #BIT6'BITS,aXCSRA ;PRESET CSR BITS & AND 8. 
RESETC s SYSTEM INITIALIZE, SHOULD CLEAR 
-BITS 1,6, AND 
IT #8171 !B1T6!BITB, SxCSRA ire CSR BITS 1,6, AND 8 CLEAR? 
Q 1 “YES = CONTINUE. 
MOV JXCSRA,SBDDAT ;NO - STORE CSR FOR OPERATOR EXAMINATION. 


ERROR ;OUTPUT MODULES CSR BIT 1 AND/OR BIT 6- 
;AND/OR BIT @ FAILED TO CLEAR ON INIT. 

CLR aXxCSRA 

CLR PS 


; LEEEEEEREREREEEREERAREERAEE ELE LEEE EL LALEE EEE L ALLEL EE LEE ELLE EERE 
;#TES *TEST THAT DBR IS ZERO ON INIT 
oa Sangre esc caste omg 


#1,STIMES ;;00 1 ITERATION 
it rs ,ONLY DO THIS TEST FIRST PASS. 
RESETC ; ISSUE SYSTEM INITIALIZE. 
MOV @XDBRA,SBDDAT  ;READ DBR. 
BEG 1$ ;IF ZERO - NEXT TEST 
ERROR ;DBR NOT ZERO AFTER INITIALIZE 
;DBR ADDR. IN XDBRA. 


iiect 1 ETEST THAT CSR BITS 0 1G AND 8 CAN BE BIT CLEAR 


*#TEST THAT CSR BITS 0,1 AND 8 CAN BE BIT CLEARED 


‘ 6 
ji tebteteessseceensensecenecesvssssestebelvssenesecestenseesense 


#5, STIMES ;;D0 5 ITERATIONS 
TST SPASS ONLY DO THIS TEST FIRST PASS. 
RESETC ;SET BITS 0 AND 1. 
ee BrTe. axCSRA 
81S I b! 178, ax -SET BITS & AND 8 
BIC SB1TO!BITiISITS!BITB. aXC NOW CLEAR THE BITS. 


XCSRA,SBODAT READ CSR. 
BIT BITO!BIT1 #8176118, SBODAT -SEE IF ANY ARE SET. 
1 sNO = CONTINUE. 


INUE 








1870 


eVEVER ENGL Lid SERER PRS 


011512 
011514 
1 


at he Re 


SSeS See 
: 


wOwoon0w 
ea eat ert at one 
fwtre-O 


MAINDEC-11-D 
185? 11410 
1866 
1883 gue 
1863 O11 
1864 0114 
1865 
1866 
188 

| 

| 


Tal 


001001 
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#TEST THAT CSR BITS C,1,6, AND 8 CAN BE BIT CLEARED 


ERROR ;CSR BIT(S) O AND/OR 1 AND/ORE AND/OR & 


:60 NOT BE BIT CLEAR. CSR RESULTS 
00 167524 1S: BIS #BIT6. aSTKS IS Soa, TTY INTERRUPTS. 
x an 


; RRRRELERELLRL ERLE LARA RAL AR RRL RE ERLE RE REL ARL RAL RER ALLEL REESE EES 


; ee #TEST THAT CSR BITS 0,6, AND 8 CAN BE B 
Hise aL EO 


py ef a pe re 
1 16 Bs se BIBITBII TE: Seeenn ‘THEN SET THEM. 
157343 Colt Bie | aLSPE74°SbDOAT FCTRIP AWAY OTHER BITS. 


O00ile6 00050) an en ee ees ;DID THEY ARE SET? 
ERROR ;CSR SIT(S) 0 AND/OR 6 AND/OR 8 


(S) 
:DID NOT BIT SET. CSR RESULTS IN 
; SBDDAT 


1$: 


167466 CLR aXCSRA 
177776 CLR PS 
»s FLLAERERELAKRA SEAS LALLA RE LEREKST KALA A RRA SERA LALEAFRARERALL SHARES 
hy TEST 23 *TEST THAT CSR BIT 7 WILL SET WHEN BIT 8 IS SET 
iss yf TOR IS NEEDED FOR THIS 
torn ok rela morta 
® 0:00 060606969505506 0606660 eee 
tST23: SCOPE 
1674S4 CLR axe ;CLEAR CSR BITS. 
OO0400 167446 BIS Fe axcSRA *SET CSR BITS. SHOULD SET CSR BIT 7 
167442 TSTB sxCSRA :DID BIT? SET? 
BNE sYES - NEXT TEST. 
ERROR ;CSR BIT 7 DID NOT SET WHEN 
CSR BIT 8 WAS SET. 
jae» c TOR IS NEEDED FOR THIS 
iB. tAlN fp a acatens | NecrC 
j HD >) END OF WARNING (<< x## 











1915 

1916 011536 

1917 

191 

i 

135} 011536 900004 

1923 011540 005077 167430 
4 O11S44 ite777 000401 
1926 011552 000400 
4 011560 001401 

19e9 011562 104000 

1930 

1933 11564 rte 000001 
1335 Biieve i001 

io 011574 104000 

1837 

1938 011576 

1939 

1940 

194 

ise 

ions 911576 o00004 

1945 011600 005077 167370 
1946 011604 013737 001174 
1947 Qil6le 005237 001274 
138 011616 112777 000401 
1950 011624 000001 
igs 0ii63e 001401 

1953 011634 104000 

1954 

1955 

1956 011636 000400 
p24 011644 001001 

1959 O11646 104000 

1960 

1961 

1962 011650 

1963 

1964 

1965 

1966 

#4 011650 000004 

1969 011652 005077 167320 
1970 011656 112777 177777 


157422 
167414 


167402 


001274 
167450 
167342 


167330 


167312 


21-SEP-76 09:S2e Pi 
BIT 7 WILL SET WHEN BI 
1S: 

ATE 


tét2u: 


1$: 


CLR 
MOVB 
BIT 
BEQ 
ERROR 
BIT 
BNE 


ERROR 


2s: 


5 LEFRELAELSLE LEELA LE LAL LLLAE EK REL ELLE RE LARLLEAE RARE EELEL ELLE LE LS 


5 3 9 969 9 9 9 9 9 9 9 9 EE EE 
*TEST THE LOW BYTE OPERATION OF THE OUTPUT MODS. 


atte SCO 
CLR 
MOV 
INC 
MOVE 
BIT 
BEQ 
ERROR 
1S: BIT 
BNE 
ERROR 
es: 
TEST 
téT26 
CLR 
MOVB 





j Feestegeeenncnassscnansnscrstesenereceeestcsuessenssattceseeene 
T 24 *TEST LOW BYTE OPERATION OF OUTPUT MODS. 

 PESSSGESESSEOGLGSEDSSPRSEEEOGSSSOSSSSESHESSEOSSOOSS3d000 00028 
SCOPE 


*TEST H 
Ei dlaSbennsssnsbbiaiatetorissasociadnestiaasitiansseee 


Lk, Pe er reneneenarmrnmesmnnpreart, 





04 


37 
8 IS SET 











aXCSRA jNAKE SURE BIT 00 AND BIT OB ARE CLEAR 
#81T8'BITO,aXCSRA ALL ONES TO CSR-ONLY LOW BYTE 


; SHOULD 
#BITO8,aXCSRA ;DID BIT O08 GET SET?(ITS IN HIGH BYTE). 
1$ ;NO-CONTINUE . 


;CO=1;C1=1;BUS ADO=0 BUT WE WROTE INTO 
sHIGH’ BYTE’ OF MODULES CSR WORD. 


TE EocKERT feet. | 


;FAILED TO SET BIT 00 IN CSR ON A 
;LOW BYTE MOV OPERATION. 


#BITOO, aXCSRA 
es 


GH BYTE OPERATION OF OUTPUT CSR. 


aXCSRA ;MAKE SURE CSR BITS O00 AND O08 ARE CLEAR. 
XCSRA, STEMPO ; NOW FORM oe BYTE ADDRESS SET BUS- 


STE SS BIT OO. 
#61 T8!B1T0, aSTEMP WRITE E WORD OUT MODULE SHOULD DECODE- 
¥ WARTING TO WRITE INTO HIGH BYTE. 
#BITOO, AXCSRA ;:DID ‘Ee T A BIT IN THE LOW WORD? 
1$ : NO-CONTINUE. 
Cals C1=1:A00=1 BUT WORTE INTO LOW 
EOF MODULES CSR WORD. 


gerros, dXCSRA — SURE WE HAD SET BIT O08 IN HIGH SYTE. 


;FAILED TO SET BIT 08 IN CSR ON A 
;MOV BYTE HIGH BYTE OPERATION. 


AKE SURE DBR IS C 


aXDBRA LEAR 
SEND ALL ONES TO DBR--BUT SENCE THIS IS 


#-1, 3XDBRA 



















































1874 
973 


8333 


i 


b= hb be 0 0 0 0 8 


SES RRPOR LE Be URR EOS 


Bg 


etc 


BURN NAN NNT 
WONTU £ WHO 


Rap sisis 


011664 
011672 
011€74 
011676 
011704 


011706 
011710 


011710 
011712 
011716 
011724 
011730 
011736 
011744 


011746 
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Coo400 167304 


900001 


000400 


000001 


000400 
167170 
001200 


167272 


001274 
167336 
167232 


167220 


001166 


167172 
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*TEST THE LOW BYTE OPEROTION OF THE OUTPUT MODS. DBR. 





A BYTE INSTR. ONLY THE LOW BYTE SHOLD SE WRITTEN. 


BIT #81708, JXDBRA ‘DID HIGH BYTE GET WRITTEN INTO? 
BEQ 1$ :NO-CONT INUE 


ERROR 


;HIGH BYTE OF DBR GOT WRITTEN INTO 
3ON A MOV TO LOW BYTE OPERATION. 


1$: BIT #81T00, aXDBRA 5010 LOW BYTE. mal WRITTEN? 
BNE 2s 7Y 


ERROR 
es: 


“NEXT TES 


;LOW BYTE OF DBR FAILED TO GET WRITTEN 
INTO ON A LOW BYTE DATAOB INSTR. 


. See ET TT A ETIE OPERATION OF THE OUTPUT MODS. 
‘ETE #TEST THE HIGH BYTE OPERATION OF THE OUTPUT MODS. DBR. 
Mee ee ae SEI NEMS EEE HRI CHEER SE 
+4727; SCOPE 
CLR aXDBRA :MAKE SURE DBR IS CLEAR. 
MOV XDBRA,STEMPO | :NOW FORM HIGH BYTE ADDRESS OF DBR. 
INC MPO +B TING BUS ADDR. 
MOVB 8-1, aSTEMPO SHEN WHOLE WORD _T0 DBR ONLY HIGH BYTE 
OF DBR SHOULD BE WRITTEN INTO. 
BIT #BITOO,2XDBRA DID LOW BYTE BE WRITTEN INTO? 
BEQ 1S ;NO-CONT INUE. 
ERROR sERROR-WROTE INTO LOW BYTE OF DBR 
:ON A MOV HIGH BYTE OPERATION. 
*CO=1;C1=1;A00=1. 
1S: BIT #81708, XDBRA E SURE HIGH BYTE GOT WRITTEN INTO. 
BNE 2$ i VESENEXT TEST. 
ERROR FAILED TO WRITE INTO HIGH BYTE 
‘OF DBR IN A MOV HIGH BYTE WRITE OPERATION. 
AEH HEHEHE EE IGG SG 
KTEST 30 *OUTPUT MODULE INTERRUPT TEST 
jaa >? 44 CREE 


WARNI 
win rt OOP BACK CONNEC 
‘rest )_OR wiinite titans FAIL. 


HHH) >) END OF WARN 


CTOR IS NEEDED FOR THIS 


© 36 3b ae ab a A SE A A SEE EEE SE EA AE A A a a a a a a a a 


té130: 


oe 
BIC #8178, aXCSRA 
TST ad 


OPE 
MOV #1,STIMES 


XDBRA 


XVT, 


RO 


;;D0 1 ITERATION 
;GET INTR. VECTOR + PRIORITY. 


;RESET ALL CONDITIONS IN OUTPUT CSR. 
;GET VECTOR ADDR. OF RECEIVER. 












OS 
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DZORH. P11 730 #OUTPUT MODULE INTERRUPT TEST 
O1e012 012737 000340 177776 MUV #340, PS ;LOCK OUT INTERRUPTS. 
eee 012020 612710 012060 MOV ais (0) ;SET UP whee VECTOR. 
HS muss YG ETD LET heat? 
ew eis 167126 a ee reres 78, ae in pal td ENABLE, AND CONTROL BIT. 
0120S2 NOP ;SHOULD INTERRUPT FROM HERE. 
012084 ERROR . ;NO - INTERRUPT FROM OUTPUT MODULE. 


BR tséS 
sMODULE SHOULD INTERRUPT TO HERE. 


012056 


ae die 


12060 18: POPSP2 ‘we Digg PRINTER (R6). 
Ci Soke aia 167104 Bie perteceire, axcCSRA "oui She ; ee ENABLE. 
012074 es: 
1 gman gr gry yey gt ee 
TEST 31 #THAT THE OUTPUT MODULE WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 


Pee) WARNING 


fae ra FE ORS Parl, re 


s ELESLLFLSLELELELELLLELL LEE LLELLELLLLALESRLRRRAEE RELA SEALE LRA LES 


SERRERE Gis abil uv ucer ee Ee eed: 





012074 000004 jute SCOPE 
012076 012737 000001 O01166 MOV 81,STIMES a 1 ITERATION 
12104 167066 TST aXDBRA 
ist ie Hf GETxC - a ie Piste vecten + PRIORITY 
ie Glee BRUBG rere yO, FE Lace SOP A nin rm Oe 
15150 15760 000340 000002 mov = 340, 20) St Pa it 
01213 052777 000500 167030 BIS a81T6!B178, 3XCSRA NTERRUPT ENABLE. 
012144 013737 001264 15753 MOV XVTP, rset Br SSOR PRIORITY TO THT OF 
| 000240 NOP aL INTERRUPT FROM HERE IF ANY. 
042777 000500 167012 BIC 881T6!B1T8,aXCSRA_ ;NO INTR. CLEAR INTR. ENABLE. 
005037 177776 CLR eS sALLOW INTERRUPTS. 
000407 BR 2s : 
SMODULE WILL INTERRUPT TO HERE IF ANY. 
De2b2% 1S: POPSP2 RESET STACK POINTER (R6). 
C4 000SOO 166774 BIC eB176!B81T8, axcsrA CLEAR INTERRUPT ENABLE. 
| 





a me a a 





COS 


76 09:S2e_ PAGE 40 
#THAT THE OUTPUT MODULE WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 


21-SEP- 


32) 


MACY11 e717 


11-DZDRH-A 
T3i 


NAINDEC- 
OZORH.P11 





;REPORT ERROR - OUTPUT MODULE. 


; INTERRUPTED WHEN CPU WAS SET AT 


;ALLOW INTERRUPTS. 
;SAME PRIORITY AS IT WAS. 


PS 


ERROR 


CLR 


2083 012200 005037 177776 
O1ze04 104000 


TORE VECTOR +2. 
AR WORLD. 


E 


;RE 
CL 


2(R0) 


es: 


z 
ous. Sh 
Btn ip 
QO0000 oO0 


, BARR Geeeeeeane 


TY IN BITS 445 
0 


3 
5 
: 


CTOR BITS 9-14 IN CSR. 


;READ XMITTER CSR FOR PRIORITY 


VP FOR INPUT MODULES CSR. 


RCSRA 


JSR PC.RC 
REQUIRED: 


eH Oe OH OH IF OH SH CH CS ES 


— 


th nt ad mt 04 rd 4 wb od 


—— 


QOVOOOWOOOOGOOOOOOHOWOAO0OOOAOA000A0 


RUUVTCCRVLRGMBABRSS 


O--MUMTNOE@or 
Oe ad dg Oh wd 4 wd 
Se Re Ree Net Kee ee ee ee ee ee Kem Kam Kon Ken hee Lam Kien ham ame lot hen em ke hem ham hee bem ham bam) 
CuCuCUuCU CUCU cucu CUcUCUunuCUnuCuCUunuCunufuCucuCuCuCufucucuCuTU 


mr mre a nt me me i ee ee 


0 FIND OUT 


robe 


oe 





ee ee en ee 


Sitdisisheaee rent 
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DZORH.P11 131 #THAT THE OUTPUT MODULE WON'T INTERRUPT IF CPU IS AT SAME PRIORITY 
139 012432 000002 RII 
141 012434 O01 166544 001124 RCVP: MOV RA,SGODAT. ; CE FOR PRIORITY 
ise bisess re eed Bot ts BIC once gopar ip :p Bo AFFS ie fe ues 
Te) ISHS QOBS37 DOLLSY aS pA STATES STATEY PRIORITY 
ae ° 
He ee poe Bt oe fff 
. > 
sis ia Doses? 0011 ASR T Q 6 
2148 012474 1 ASL 1 7 
ty piss ibe reece 1126 a sera DAT VER ae FOR VECTOR. 
sie eats eels i9 Bot tse BIC pcan, § T REBD Re cceTy 9-15 IN CSR. 
2152 012516 000237 001126 SWAB $BDDAT *CSR BITS 9-14 REPRESENT ADD BITS 03-08 
2153 Ol D06337 001 1e6 ASL T 
2154 O01 1126 T 
2155 012532 017700 166446 V SRCSRA, RO READ _CSR_ AGAIN TO FIND OUT 
2155 oi D42700 177773 BIC 8177773 RO STATE OF BIT 2. 
2157 O1 60037 901126 SBDDAT ‘Bt 2 IS PART OF VECTOR ADOR. 
2158 Oi2546 013737 OO0le04 001120 MOV RCSRA,SGDADR § ;SET ADDR. FOR TYPEOUT. 
2160 O1 137 001266 R1,RVTP PRIORITY THE SAME? 
2i6i O1 1415 BEQ 3§ ‘YES -3$ 
| 2162 OleS62 010137 001266 2s: MOV Ri, RVTP *NO-STORE NEW PRIORITY. 
e153 Ot 1373 O01 te 001210 MOV T.RVT ‘STORE VECTOR ADOR. 
164 O1 1 1210 OOlele 
2165 bbe 062737 001212 ADD #2, RVT2 
2166 012610 000137 012636 IMP XRCVPT GO TYPEOUT CHANGE. 
| 2167 Olebl4 023737 OOlle6 001210 3s CMP SBDDAT, RVT ‘DID VECTOR ADDR. CHANGE? 
2168 Olcbee 001357 BNE 2s :YES-TYPE IT OUT. 
2169 Olebe4Y 023727 001210 000100 CMP RVT, #100 
2170 Olesse 002753 BLT 
gi71 012634 o00002 RTI 
e173 sROUTINE TO TYPEOUT A VECTOR OR PRIORITY CHANGE 
| 2175 912636 XRCVPT: 
e176 Died 104401 012644 TYPE 65S ;sTYPE ASCIZ STRING 
| éL lee4e 000407 BR 4§ jGET OVER THE ASCIZ 
| 2178 +2658: -ASCIZ ¢15)><12>8CSR ADDA! 
| e173 Ol2bbe bas: 
| p18] 012662 01374 001120 MOV SGDADR,-(SP)  ;;SAVE SGDADR FOR TYPEOUT 
«ies 12666 | TYPOC iO TYPE=- hen DIGITS) 
at pice 104401 012676 TYPE 67S + ee cig. STRING 
| 2185 012674 OO0410 BR 6S *:GET OVER T 
e186 sabe iig?8* -ASCIZ # VECTOR ADOR.: & 
ste 12716 013746 001126 MOV SBDDAT , -(SP) VE SBDDAT FOR TYPEQUT 
| 2189 1 Bis VECTOR PRET DEVIC 
| 2190 OL 104402 TYPOC 3 3G0 YPE--OC TAL (ALL Obra! Fs) 
' 9191 O1 104401 012732 TYPE 69S AScIzZ STR 
gig 012730 000406 BR 8$ ere OVER HE peciz 
| gl --69$: .ASCIZ # PRIORITY: 8 
| B18 012746 bas: 


a rt eee 


a 


we 
SEPA 


Ba 


i 


Seennese 


PURSUE 
MOO NICUI£ WHO 


BSNS 


teen Ba * toes” “A 
DZDRH.P 


013064 


T31 


052737 900004 001124 BIS 82172, SGDDAT 
01374 oC1124 MOV SGDDAT, - (SP) Hi SGDDAT FOR TYP OUT 
;}TYPES PRIORITY OF DEVICE 
104402 TYPOC TYPES-OCTAL ASCII(ALL DIGITS) 
104401 001171 TYPE,  $CRLF 
023727 001126 900100 CMP SBOOAT, #100 ts VECTOR LESS THAN 100? 
104401 013004 BCE sais i Ib Ase te STRIAG, 
30 8R 708 “GET OVER THE ASCI 
iZi8: "ASCIZ <15><12>#ILLEGAL VECTOR ADOR. CAN i BE LESS THAN 1008 
1S: 
04401 013072 TYPE 73$ ss TYPE feet STRING. 
2b BR 2s 
44738: “ASCIZ <15><12> #RESET viisep SWITCHES AND PRESS CONTINUE. # 
000000 HALT 
162716 90000¢ SUB #2, (SP) 
ooo442 BR 
023737 001210 001200 2s: CMP RVT, XVT ;ARE VECTOR ADDRS. THE SAME? 
001026 BNE 3$ *NO CONTINUE. 
104401 013174 TYPE 75$ ;;TYPE ASCIZ STRING 
000432 BR ug iG OVER THE ASCIZ 
14758: "ASCIZ <15)<12>*ILLEGALENPUT AND OUTPUT VECTOR ADDRS. THE SAME. # 
000701 = 1S 
oooa0e2 3$ RTI 
;#CKADR ROUTINE TO CHECK VALIDITY OF 
saat M00 53h Pc 
: #RE QUI PO CRESS. IN RO 
#CARRY BIT CLEAR ON RETURN IF LEGAL 
*#CARRY BIT SET ON RETURN IF ILLEGAL 
000001 CKADR: BIT 1T0,RO ODD ADDRESS? 
14 Q HH *NO CONTINUE 
104401 013300 TYPE 65S 3; TYPE ASCIZ STRING 
000416 BR 4§ *GET OVER THE ASCIZ 
jigs: "ASCIZ <15)<12>80DD ADDRESS NOT ALLOWED! s 
000435 CKADRE 
005700 3S: TST RO ANY ADDRESS ENTERED? 
001001 BNE 4§  YES-CONT INUE. 
000207 RTS PC ;NO-EXIT. 


MACY11_&7( 722) 
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®THAT THE OUTPUT MODULE WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 





















EOS 
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; ASCIZ 
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DZDRH.P11 31 %THAT THE OUTPUT MODULE WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 
013344 4$; 
013344 005700 TST RO sNUMBER LARGE ENOUGH? 
01334 100013 BPL 2 *NO-REPORT ERROR 
1 040000 BIT aB1T14, RO 
1 141 BEQ z 
1 o20000 SIT #81T13,RO 
01 001 BEQ 2g 
ot 4 177670 CHP RO, #177670 sADDRESS TOO LARGE? 
013372 000241 Le 
013374 000207 RTS PC 
013376 2s: 
013376 104401 013404 TYPE 67S +s TYPE ASCIZ STRING 
013402 000412 BR 6S F OVER THe ASCIZ 
--67§: -ASCIZ (15)<12>#ILLEGAL ADDRESS 
013430 66S: 
013430 000261 CKADRE: SEC 
013432 000207 RTS PC 


;*ROUTINE TO HANDLE KEYBOARD INTERRUPTS 


SASS SSS UAE OR OSS RSE B ISS SEER | 


013434 017737 165506 001270 KEYSRV: MOV 3STKB, CHAR READ CHAR. 
oi se 042737 000200 001270 BIC #8117, CHAR ‘STRIP PARITY IF ANY 
ot 105777. 165474 1S: STB = ASTPS SEE IF PRINTER BUSY 
13454 100375 BPL 15 
013456 113777 001270 165466 MOVB CHAR, ISTPB ECHO 
o1siey 001270 000003 CMPB HAR, 83 stC Tyr ED? 
j 1 1 BNE 
013474 000137 003060 IMP RSTART sYES RESTORT 
| 013500 ‘] 001270 CO0001 25: cHPB CHAR, #1 A TYPED? 
ft 1 rei 001000 J #1000 ponpaee 
013514 123727 001270 o00015 3s: CMPB CHAR, #15 s<CR> TYPED? 
013522 O01010 BNE 53 
013524 104401 001171 TYPE,  SCRLF 
| 1 013737 001236 001230 MOV TTYPAT , PATTRN ;CHANGE PATTERN 
013536 005037 001236 CLR TTYPAT 
| 013542 000002 4S: RTI 
013544 123727 001270 000023 SS: CMPB ss CHAR, #23 "4S" TYPED? 
| 013552 001463 BEQ SWRSET IF YES TYPE SWR. 
013554 123727 001270 op000s CMPB = CHAR, &S s"4E" TYPED? 
| 013562 O00142s BEQ LEXAM :YES-TYPE OUT A LOCATION. 
013564 


123727 001270 OO0060 6S: CMPB =ss CHAR, #’0 ;OCTAL DIGIT? 
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2307 013572 002763 , BLT 45 : NO- IGNORE 
58 i 727 001270 0000687 CHF CHAR, #°7 
10 Ol 001236 ASL TTYPAT 
2311 O13€10 006337 001236 ASL TYPAT 
2312 013614 006337 001236 ASL TTYPAT 
2313 013620 942737 177770 001270 SIC #177770, CHAR 
314 13626 37 001270 001236 Bis CHAR, TTYPAT 
315 Ol 742 R 4§ ‘ 
5319 } 
e318 *ROUTINE TO TYPE OUT THE CONTENTS OF A LOCATION 
2320 013636 LEXAM 
2321 013636 104401 013644 TYPE 6S$ ;; TYPE ASCIZ STRING 
e3e2 013642 00:02 BR 4§ GET OVER THE ASCIZ 
--65$: .ASCIZ stEs 
01 64s: 
013650 104410 RDOCT 
013652 012637 013720 MOV (SP)+, 15 
Hy 104401 013664 TYPE 67S ;; TYPE ASCIZ STRING 
1 BR 6$ GET OVER THE ASCIZ 
--67§: .ASCIZ <15><12> 
esa 013720 en a ee AVE 1$ FOR TYPEOUT 
eae Phaaa8 TYPOC ‘ $380 ’E be Oc TAL ASCII(ALL DIGITS) 
013676 104401 013704 TYPE 69S +: TYPE ASCIZ STRING 
013702 o0040e2 = BR 8$ +:GET OVER THE ASCIZ 
--69$: .ASCIZ #7 # 
013710 68s: 
013710 01774 oocoo4 MOV a1$,-(SP) ;;SAVE 218 FOR TYPEOUT 
13714 104402 TYPOC G0 TYPE--OCTAL ASCII(ALL DIGITS) 
013716 oo000e2 RTI 
ooocco 1S: .WORD O ;TFMP STORAGE FOR LEXAM. 


;ROUTINE TO TYPE OUT THEN CHANGE THE SOFTWARE SWITCH REGISTER 


BRU URE See Aree BoB UR AS REM RUNNIN 
w 
d 


Re 


013730 TYPE 65S ;;TYPE ASCIZ STRING 

013726 OO0404 BR 4§ GET OVER THE ASCIZ 
' jigs: LASCIZ <15><12>aSWR= # 

13740 104414 SWCAL 

| 137 013746 001302 HOV SWREQ, -(SP) +s SAVE SUREQ FOR TYPEOUT + ‘amaeatd 

pte e8 pao 013756 y *F 67$ te ReCIS CTRING 

33 Vv C 
013754 000402 BR b6$ GET OVER THE ASCIZ 

| jj8?8: LASCIZ &/ 8 

wees 104410 RDOCT 

| +, 

2359 013764 012637 001302 MOV (SP)+, SWREQ 
2 013770 co00de RTI 
| 


fone Peace utah a tn erect 


T31 THAT THE OUTPUT MODLi- WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 


TINE TO HANDLE TRAPS TO LOC 4, 10 AND. 
eIN ERRUPTS TQ WRONG VECTORS. 
:#.42, IOTT(TRAPS) WERE PUT IN LOCATIONS 4-1000 
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2369 
2370 O01 IOTRD: 
ez] o1 011637 o1414e2 MOV (R6),28 :GET WHERE WE TRAPPED TO. 
1 1 000004 914142 SUB #4, 2$ *sWHERE R& RETURN 10-4 
2373 014004 104401 014012 TYPE $$ 3; TYPE ASCIZ STRING 
2374 O14010 O004i2 SR 4§ : CET OVER THE ASCIZ 
2375 -65$: -ASCIZ (15)<12> #ILLEGAL’ thAP 
2376 014036 645: 
2377 014036 013746 O14142 MOV 2$,-(SP) ;;SAVE 2S FOR TYPEOUT 
2378 O14042 104402 TYPOC : GO TyPE-—OCTAL BSCIICALL DIGITS) 
2379 O14044 104401 014052 TYPE 67S -: TYPE ASCIZ STR 
2380 0140S0 000407 BR ::GET OVER THE Ascrz 
2381 --67§: .ASCIZ # FROM LOC.: 8 
2382 014070 66S: 
2383 014070 062706 O00004 ADD #4, Rb sPOINT TO WHERE WE TRAPPED FROM. 
2384 014074 011637 014144 MOV (R6).35 Si’ ‘PICK UP LOC. 
2385 014100 162737 O00002 014144 SUB. #2, 38 tf 
238 014108 013746 O14144 MOY: 3$,-(SP) >:SAVE 3$ FOR TYPEOUT 
o387 O141le 104402 TYPOC. ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
2389 014114 014142 900004 CMP 2S, 84 ;DID WE TRAP TO Loc 4? 
2390 O14l22 O01405 BEQ 1 :IF SO - DON’T i 
2391 914124 014142 000010 CMP 2$, #10 :DID WE TRAP TO tot, 10? 
2392 014132 001401 BEQ 1$ ‘IF SO - DON’T RETURN! 
2393 014134 RTI : TRY RETURN 
| Sage 014136 000000 1S: HALT ;WE STOPPED HERE BECAUSE WE TRAPPED 
23% 014140 900776 BR 1$ :TO LOC 4 OR LOC 10. THIS IS A 
2397 : FATAL CONDITION THAT WE CAN NOT 
| 2338 RECOVER 
| 9409 O14142 900000 23: .WORD O sUSED BY IOTRP TO STORE WHERE WE TRAPPED TO. 
| eo 014144 900000 38: “WORD O *USED BY IOTRP TO STORE WHERE WE TRAPPED FROM. 
| "#SWRCAL ROUTINE TO READ THE HARDWARE SWITCH REGISTER IF IT 
; #EXISTS AND IF IT ITS NO-ZERO. 
*CALL = SWCAL 
| EXITS | WITH SWR VALUE IN SWREQ IF HSWR IS USED. 
| 2411 
| 5412 O14146 005777 165126 SWRCAL: TST JBSWR 
| p413 O141S2 001403 BEQ 1$ 
Eat 014154 017777 165120 164756 MOV SBSWR, ISWR 
1S 014162 Bhoa0e 1S: RTI 
| puIB 
| ww 
| 


T31 ®THAT THE OUTPUT MODULE WON’T INTERRUPT IF CPU IS AT SAME PRIORITY 


t SHALTER ROUTINE USED TC HALT an tem IF NO SWR(HARDWARE ) 
;#1S BEING a Usp THEN “HOLDS ON ERR 


*#RESETR- ROUTINE 10 ISSUE SYSTEM INITIALIZE. AND WAIT FOR TYY 
:*SETTLE DOWN FIRST. 


pCALL = RESETC 
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s#CALL : 
2425 014164 905777 165110 HALTER: TST JESWR 
evee 014170 001402 BEQ 1$ 
e8 014172 900000 HALT ERROR HALT. 
e430 014174 900425 BR 3$ 
cua Staie 01 014204 1S: PECs ; TYPE ASCIZ STRING 
S34 tee abouts BR 645 4 OVER te ascIz 
2435 -65$: .ASCIZ <15><12> #HOLDING ‘ie ERROne 
2436 014230 bag: 
2437 014230 005037 177776 CLR PS 
2438 014234 052777 OO00100 16470e BIS $100, 2$TKS 
2439 014942 005777 164672 2s: TST JSWR 
evi 14246 100775 BMI 
e442 014250 oc000e 3S: RTI 
2443 
e444 
| e44s 
; OHH 
| 2447 
| 
\ 
| 


2456 
2457 g14252 RESETR: 
ete 14 104401 014260 TYPE 65S TYPE ASCIZ STRING 

014256 9004 64§ ney OVER THE ASCIZ 
2460 -:65$: .ASCIZ <1><1><1> #8 
cue btusey bas: RESET SYSTEM INITIALIZE STATEMENT 
Sie5 pt see pppoes RTI : RETURN. : 
2464 ; 
e465 

;*TEXT USED BY MASTER TO TRANSFER TO SLAVE. 

2471 
247, 914270 TABLE: 
2473 614270 oo0000 TEXT: 000000 


e474 014272 000001 000001 ;FLOATING ONES. 


ee 
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Q oe = 


014330 100000 1 
2491 014332 000000 
2432 014334 177777 177777 ;FLOATING ZEROS. 
2493 014336 177776 177776 


2494 014340 177775 177775 


— a a mm a EL TT merece GE | 


et! 
DZDRH.P11 


SUR eRRC BS ONE NNN So See iee oa uem NUDE aaEee 


QOOOOOOCOOOOOOA00O BOOoKOOOCOOOCoOoO0O00000 
Be Pa be GH at be Be Bs Gas fs bn Ft Be Dt ee BS bs BR fh P= F- 2 BP Be B= fe Bo fs 


ate 


yO 





014406 


223% 
CO .£MO 


sea SEAELENS ALLL 
oS REE 


Finn 


teed 
MO 





-OZDRH-A 


T31 

eee 
ee 
177877 
1e7re 


173779 


167777 





Le 5 bon oi Se__ PAG 


4 
T fr CPU IS AT SAME PRIORITY 


;BYTE ALTERNATES 








ae 


bb be BR pe 


feenae BESS 


be Fs f—2 f—2 Be po Ps ps B= BF = HS Be 


ASE NESE PNM RM CAE aid da Scat 


BEE SRERORERGREEInS PERESISSREREROS 


C00 OOOOOOOOCOOOOO0O0O GB2O0000000 


a ee ee ee ee ee ee ee ee oo 


e606 015226 


iF 
i 


E ENE * 


y 
BS 


3 


S 


ce 


a9 


ag 


8 


T 
TEXTE: 


STORE: 
ei 


& fEEScESS 8 


005015 O0S2123 051101 MSM: 





THAT THE OUTPUT MODULE WON’T 


ABLEE: 


Oud000 
Oss 
177777 
774 
177400 


000000 
177777 
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INTERRUPT IF CPU IS AT SAME PRIORITY 


-BLKW 425. 
ABLE: .WORD 


PASCII MESSAGES 


-ASCIZ 


(15><12>/START MODE/ 










MOS 


09: $2 
OF FR TERRUPT TF CPU IS AT SAME PRIORITY 


z 
S 


11-DZDRH-A A al the Our ty 
1 T31 #THA OUTPUT MODULE 


ites cen 047515 O4eS04 


Se42 
Ss I: ea rat MIM: ~ASCIZ «15>¢12>/IMMED. SEND MODE/ 
1 


4 

S267 01S O4101l2 051125 MBM: -ASCIZ <15><12>/BURST SEND MODE/ 
@ O20) ON78I5 

18310 Oves0% 000 


015314 EVEN 








i 


Roe oe eee 


;#SYSMAC ROUTINES BEGIN HERE 


2626 
2627 
ES .SBTTL END OF PASS ROUTINE 
2631 sELHLEXELLERERELE KE HEE AES EKERE SALA EESHRA KEE SHE ARE L KL ARSE ESRF EREE 
2632 tT INCREMENT THE PASS NUMBER ($PASS) 
2633 sEINOICATE END~OF “PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
be) END PASS # UHIERE 000 T A DECIMAL NUMBER) 
eb ;¥IF IERES A RONTTOR GO GO TO IT 
2636 IF THERE ISN’T JUMP TO RET1 
ptesty y se: SWCAL “READ THE SWITCH REGISTER. 
spaa piesté 193343 002000 163614 BIT #B1T10, aSWR 
264 eae 4 BEQ RETCON 
1 001100 NC $PASS 
2643 015332 000423 BR RET 
crue Dies 015342 Revi: peg :TYPE ASCIZ STRING 
Sete plesaa iodo BR 645 GET OVER THE ASCIZ 
264 --65$: .ASCIZ # ERROR COUNT & 
crag Diese 0 001112 bs: MOVs SERTTL. -(SP) SAVE SERTTL FOR TYPEOUT 
2650 Oise raaaoe TYPOS : ed ae CIMAL ASCII WITH SIGN 
2651 O01 104401 015376 TYPE 67S si LYRE ASCIZ STRING 
2652 015374 00402 BR b6$ GET OVER THE ASCIZ 
bbs --67§: .ASCIZ # # 
015402 66S: 
2655 
bbb 01s402 oo0002 RET: RTI 
bbe 015404 RETCON: 
2660 O15404 005037 001102 STSTNM 33ZERO THE TEST NUMBER 
2661 015410 005037 001166 CLR STIMES HE NUMBER OF ITERATIONS 
2662 015414 005237 001100 t TNCREMENT THE PASS NUMBER 
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DZDRH.P11 END OF PASS ROUTINE 











2663 015420 042737 100000 001100 Bic #100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
2664 015426 005327 seopCT a (PC)+ ;;LOOP? 
aa he + WORD $poacn + YES 
seh il: 4 ad MOV (PC)+,a(PC)+ $;RESTORE COUNTER 
266 ae 915430 * SEOPCT 
2670 015442 104401 015507 TYPE SENOMG TYPE “END PASS 9 
2671 015446 013746 001100 MOV $PASS,-(SP) SAVE SPASS FOR TYPEOU 
Sahm ieee Pe ema, fifi cea“ SO 
2674 O15460 013700 o00042 SGET42: MOV de42, RO 3GET MONITOR SODRESS 
ee tle! ie Red, Hon Renee Cea 
154 710 SENDAD: JSR PC, (RO) 0 TO MONITOR 
Be Ee cnt segue ROOM 
2680 015476 000240 NOP ::ACTLI 
Ba Oi50y 1 a acpe)s RETURN 
spas 13300 ieee SRTNAD: .WORD RET! 
2684 015504 377 377 000 $ENULL: .BYTE s NULL CHARACTER STRING 
2685 015507 01S o4e412 O42116 SENDMG: .ASCIZ tes 18, eno past’ s 
2686 015514 oso0040 OS1501 020123 
2687 0155e2 O00043 
£83 383 .SBTTL SCOPE HANDLER ROUTINE 
2691 ; HUEREEHEREEAEEERESSERERESESSSESSEREERES SEL ERERESE OSE EO OE OEN 
2692 jATHIS ROUTINE CONTROLS TH THE | LOOPING OF souBTesTS. IT WILL INCREMENT 
oegt oe HES NT D PLAY 15:08) _ reece were 
re te ERO HT rd Oe rr Rabo 
2697 ite = benTBST TEE RATIONS . 
98 > *#CALL 
99 + SCOPE ;;SCOPE=IOT 
Le 015524 SSCOPE: 
2702 015524 104414 SWCAL 
2704 O1S526 032777 O40000 163404 1S: BIT sBIT14, , OSWR i 3L00P ON P PRESENT TEST? 
oO ™ jaeeeaSTART OF CODE FOR THE XOR tictendoute 
| 3707 015536 O004i6 éxts 6$ $3 Tf RUNNING ON THE =xOR” TESTER CHANGE 
15540 O01 V ey We The CONTENTS OF THE ERROR VECTOR 
BE AS BEE RR ome ear 
l2 Ol 000004 MOV 4 - aS RESTORE THE ERROR VECTOR 
| ae ot ng (Se, hs, TO THE £ ERROR T 
| 2714 015564 Oe2b26 cs: CMP (SP)+, (SP)+ si CLERR THE STACK AFTER A TIME OUT 
re bleere 12637 000004 HOV (SP), " DHERRVEC Soe on | THE ERROR VECTOR 
17 015574 6S: ; #888REND OF. COOE FOR THE aa) eS STERSUSES 
2718 015574 105737 001103 23: TSTB ° SERFLG HAS AN ERROR OCCURRED? 





—$—$—$— A LT 


Z 
8 
b 


~ : 
. 
wc, 
-~ | 
Po bn Bo Ow 


FROST ER SAoRNN EERE 


Ob bt bs Pe Ft ho be ee 


BRERE CECE DL LGCn ORE anche PRP EPP EAPO RBA DARARD RAR RA its 
= 


EL LD LL LLL LLL LLL LLL CN, 


L 





001103 
lle 
1116 

000002 

020000 


001304 
001304 


015766 


001304 


016046 


001116 


163320 


001104 
001104 
001166 


163244 


001116 
163176 


000013 





BO6 
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BEQ 
4§: CLRB 
CLR 
3s: BIT 
i 
Q 
ue 
1S: MOV 
MOV 
SSVLAD: INCB 
MOV 
SOVER: MOV 
MOV 
RTI 
SMXCNT: 2000. 





ERROR HANDLER ROUTINE 


$3 sousesineonceasenusanieennceneegseanueayeeyseenstesesenesssees 


ie TP itt 


ents bre, 


= i 


p82 392 8 


big 


“~ 


ae 


~ 


18: 

TYPE 
-:678 Rsc1z 
bts: 

MOV 


MInE Pe OF THe ERROR CALL TF SWRLa=0 


;READ THE SWITCH REGISTER. 
;SGEGT THE ERROR FLAG 


SERTTL ; INCREMENT COUNT. 
(SP), SERRPC :GET pcre ERROR CALL. 
82, SERRPC *MAKE PC OF ERROR CALL. 
881713, aSWR s INHIBIT TYPEOUT OF THE ERROR? 

15 : YES- SKIP TYPEOUT. 

s INCREMENT THE #0F ERRORS TYPED OUT 

ERTYCN, #11 *HAVE WE TYPED OUT 10 ERRORS? 
65S s TYPE ASCIZ STRING 


64§ jGeT 
15> <12) SHALTED EN ERRORS TYPED OUT# 


gue 


iD SEN, 
1 Wena obit, VER 


SERRPC, -(SP) ;;SAVE SERRPC FOR TYPEOUT 


f 


SE EE ET TS TT TS SS 
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ll ERROR HANDL 


A 
~ 


EL Loe rerrreeene rer nr ntir se Bape : 


t 


eoftdedidesdeetededesdscts 
ts 
b= 6-3 b= b+ bs bo ho CS 


WO NOU £ WI Ol 


Rout sisal 


016070 
1 
1 
016100 
016102 
016104 


016104 
















ITINE 


104402 TYPOC +:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
BSRIS: AL  sREAD THE SWITCH REGISTER. 
163040 Fey cue TACT ON ERRORS 
100001 BPL BSR14 tNOCCONT IRE. 
14415 HAL TCL 
8SR14: 
poooo2 RTI 


; ERREREEEE RA EEER RE REAE SEE EERE EE RERE EARLE AREER EEE EEE EELS SE EELS 
SBTTL TTY INPUT ROUTINE 


; NOTE: THIS ae IS NOT A SYSMAC ROUTINE. IT IS 

; A CLOSE COPY “ .SREAD™ EXCEPT FOR CONTROL 
; CHARAC TECTION WHICH PROGRAM TO “KEYSRV” 

; WHEN A CON CHARAC IS DETECTED. 


;#INPUT A SINGLE CHARACTER FOR THE TTY 
#CALL: 


:#  ROCHAR INPUT A CHAR. FROM THE TTY. 
#RETURN HERE :CHAR. ON STACK. 
Di1e4e _ SROCHR: MOV (SP), -(SP) ;KPUSH DOWN THE PS. 
016666 09004 ooo002 MOV 4(SP},2(SP) : 
i l 1S STB asTks WAIT FOR A CHAR TO BE TYPED. 
reais 163016 000004 MOVB 9S TKB,4(SP) sREAD THE T 
2766 177600 OO0004 Bre 8177600,4(SP)  ;GET RID'OF PARITY Be. 
ti G0 BACK TO CALLER. 


s LERESELESHL FELELELELE ERE ie Cee Oe en ee es 


353 RINPUT A STRING FROM T 
+ ROLIN ;READ A STRRING FROM THE T 
ia RETURN HERE SADDRESS OF FIRST CHAR ON STACK. 
01 SROLIN: MOV R3,-(SP) ;SAVE R3. 
01 Gis272 1$: MOV aStTYIN, R3 -PUT ADDR. OF BUFFER IN R3. 
022703 016302 2s: CMP SSTTYINSS.,R3  ; BUFFER FULL? 
101405 BLOS 6s«44S sIF YES ASK OPER WHATS GOING ON? 
LO4406 ; ROCHR ;GOTO READ A CHAR. ROUTINE. 
11261 MOVE 3s (SP) +, (R3) : STORE 2 
ee? 000177 CMPB le tr3) :WAS CHAR A RUBOUT?? 
I BNE "NO CONTINUE. 
104401 001170 4§ TYPE sYES TYPE A “?", 
BR Te RESTART INPUT. 
ill 016270 3S: MOVB ad “ECHO THE CHAR. 


oe awe. ne + ee 


UO 
-_ | 
bs bs 

be 


RR 
£ 


OoOoOO000000O 2800000000 


pete 


re | 


ROTRER SARS D IPERNITY 


G2 B= fF B= Be Bs be hs GB BF th bs tt see 


SGpEEpUEs TeapORNORRe GE 


ae ee oe ene ee oe oe 


-A MACY11 27(732) 21-SEP-76 09:S2 PAGE SY 
TTY INPUT ROUTINE 


4, 


o440l 018270 cs: TYPE ot 
122713 000015 CMPB s«aBIS, (RB) :CHECH FOR CARRAGE RETURN TYPED. 
O14ie BEQ ? TF NOT GETR NEX T CHAR. 
le2e3e7 900040 CMPB (R3)+, #40 
BGE 2s 
1 MOV tm): R3 
116% MOV (§P),=(SP) 
016666 oo0002 MOV u(SP}. BSP) 
000137 013434 KEYSRV 
105013 7§: CLRB 3s (RD s INSERT ZERO TERMINATOR. 
104401 001172 TYPE SLF :TYPE A LINE FEED. 
12603 MOV (SP )+,R3 :RESTORE R3. 
LIE4 MOV ) = (SP) ‘ADJUST THE STACK AND 
16666 000004 oo0002 MOV Gree Stsp) : PUT THE F RST RODRESS OF THE 
012766 Ol6e72 O00004 MOV sSTTYIN, 4(SP) : CHAR. 
oo00002 RTI 
000 000 8S: .BYTE 0,0 ; STORE rm CHAR. ECHO. 
000910 STTYIN: .BLKB 8: RESERVE 8. BYTES FOR LINE ASCII STORAGE. 
.SBTTL READ AN OCTAL NUMBER an THE TTY 
3  SEFEFSLLESLEREERELASAAEELEE SEAAAAREAERERERELHAEREE “HAZ RAERERE EE 
: &THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
; XCHANGE IT TO BINARY. 
;# RDOCT 
*# RETURN HERE tity ORDER. ay 3 Nore ON TOP OF THE STACK 
te *:HIGH ORDER BITS ARE IN $HIOCT 
01164 SRDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
01666 ooc004 oo000e2 MOV 4(SP)_2(SP) *: INPUT NUMBER 
01 MOV RO, -(5P) *:PUSH RO ON STACK 
01014% MOV R1'-(SP) ::PUSH Ri ON STACK 
0 MOV R2,-(5P) PUSH R2 ON STACK 
1 1S: RDLIN >:READ AN ASCIZ LINE 
012600 MOV (SP)+,RO *:GET ADDRESS OF IST CHARACTER 
05001 CLR Ri} ::CLEAR DATA WORD 
112046 28: MOVB  (RO)+,-(SP) ;;PICKUP THIS CHARACTER 
1412 BEO 8 *:IF ZERO GET OUT 
1 1 s3#e 
006102 ROL Re 
006301 . ASL Ri 374 
006 102 ROL Re 
006301 ASL Ri :3%8 
Oe ROL Re 
6 177770 BIC #107, (SP) ;;STRIP THE ASCII JUNK 
1 ADD (9P)4, Rl ;jADD IN THIS DIGIT 
BR : LOOP 
Be omg «Ay ArlSugm - {ES EISLER FP Ste 
B88 ta MOV et act a 
Oieete MOV (SP)+, Re ;:POP STACK INTO Re 
12601 MOV (SP)+;RI *:POP STACK INTO RI 
012600 MOV (SP)+'RO ::POP STACK INTO RO 





READ AN OCTAL NUMBER FROM THE TTY 
016400 000002 RTI ; RETURN 
01640e 000000 $HIOCT: .WORD Q ;;HIGH ORDER BI7S GO HERE 
SBTTL TYPE ROUTINE 


S EROUTINE TO TY RELRELAALSLALLALELALSLALALLEREAAEALALARELELLAELELLE 
















YPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


;#THE _—— a“. Vg A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

; NO TAINS THE ett pene " BE USED AS THE FILLER CHARACTER. 

: ¥NOT PILLS CRONTAT eee ILLER CHARACTERS REQUIRED. 
CHARACTER * FILL AFTER. 


j NOTES: FILLC CONTAI 


¥CALL: 
#1) USING A TRAP INSTRUCTION 
TYPE ME 


HOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


ERE | 
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DZDRH.P1i 

i 

| 

| 

| 

| 


D16404 105737 001157 STYPE: TSTB STPFLG 1S THERE A TERMINAL? 
DieNi9 490002 BPL 1S ‘TBR IF YES 
16412 HALT “HALT HERE IF NO TERMINAL 
016414 000407 BR 3 :t EGVE 
Sait pieaee biseon opood2 ™ Nov getsPiTR iieeT 
5qi2 tae 112046 2s MOVB Rae SP) $3 MOORBReTER ried Prep ONTO STACK 
Sala DIEISD DOSyOE eS ee alld ta ee er tee avec 
Sac Blewse Byscae Ty «ARES ro eRe he 
e316 Dib 062716 o00002 3$ app #2, (SP) ey RETURN PC 
2918 ft eaat4 000011 4§ ys BHT, (SP) *:BRANCH IF <HT> 
2919 O16446 001430 BEG 
e320 O1b4sO 27 1b 0uc200 CMPB =s- SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
Diese ST (SP)+ ;;POP <CR><LF> EQUIV 
2923 DlG460 104401 TYPE :: TYPE A CR AND LF 
Saee t mons} 016620 athe SCHARCNT CLEAR CHARACTER COUNT 
hoo7es He 
290m «(D164 BR 2s *:GET NEXT CHARACTER 
2327 016472 004737 016554 S$: JSR PC, STYPEC *2G0 TYPE THIS CHARACTER 
2908 O16476 123726 001156 6S: CMPB 0s SFILLC,(SP)+  :3IS IT TIME FOR FILLER CHARS.? 
2329 O1b50e 001350 BNE eu isTE_NO G0 NEXT CHAR. 
2930 O16504 013746 001154 MOV ,-(SP) :GET @ OF FILLER CHARS. NEEDED 
| 2931 ;;AND THE NULL aon 
| Stee, i el A on whe Tee Ae OD THE HULL BOF OF STACK 
5354 pipet? rita 016554 A STYPEC +185 YPE A NULL 
| p935 O1652e2 105337 016620 DECB  SCHARCNT ::D0 NOT COUNT AS A COUNT 
oe 016526 000770 ER 7$ ; ;LOOP 
| 2938 sHORIZONTAL TAB PROCESSOR 
| 3640 016530 112716 oo0040 8S: MOVB = &’_—«C (SP) ;;REPLACE TAB WITH SPACE 
| 9941 016534 het 016554 9§: JSR Pc, $TYPEC :: TYPE A SPACE 
| 242 016540 132737 000007 o16620 BITB . #7, SCHARCNT ::BRANCH IF NOT AT 
! 
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STYPEC: Ferg 


1S: CMPB 


INCB 
SCHARCNT: . WORD 
STYPEX: RTS 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ne ge ee pete a Oh i gp ie ae =| 
THIS ROUTINE IS USED T 

eats (ASCII) NUMBER AND TYP 

; #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


+ wy 
YPOS 


* 
* OIE 
- ‘BYTE 


Spe oR HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;#STYPOS OR 
#CALL: 


;# 
= HERE FOR TYPEOUT OF A 16 BIT NUMBER 





B STOP 
P SPACE OFF STACK 
He NEXT CHARAC vee 
;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INT? DATA REG. 
3325 CHARACTER A CARRIAGE RETURN? 


: F NO 
Hic CHARACTER COUNT 
ii Ts CHARACTER A LINE FEED? 


; BRANC 
; :;COUNT THE CHARACTER 
; ;CHARACTER COUNT STORAGE 
















T BINARY NUMBER TO A 6-DIGIT 


i; NUMBER TO BE TYPED 
: OR T 


1=TYPE LEADING ZEROS 
;  OSSUPPRESS LEADING ZEROS 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;NUMBER TO BE TYPED 
tECALL FOR TYPEOUT 


MODE 
LL_SWITCH 


;;SET ‘ZERO FILL SWITCH 
bigey FO Xt) DIGITS 
;;SET THE ITERATION COUNT 
3} SAVE R3 

;SAVE RY 
; SAVE 


;;GET THE NUMBER OF DIGITS TO TYPE 


: SUB TRAST My FOR MAX. ALLOWED 
;;SAVE IT FOR USE 


aE ft -OconH 
DZDRH.P11 


—- wi 
_ = 


3 


5 
R 


aa 


SeanaesRoeS 


: 


= 


stateiatatsictetais 

DOnNWU CWO 
eae 
8 8 


Sc5es 
: 


pee 


do 
— 
Hs 
= 
o 


S27 SaRaN TNS 


Sages 


D4 2 hs 9 fh Bt fae fae hee fhe fae fa Pt fae Bee Pee pe 


i 


TRUSS seh Foee See GeO OR CBS SA NUSRSS 


oOoo000O0 





10 octaL (ASE 


017047 
000012 


000002 000004 


A. > P-76 09:52 PAGE $7 
1$: 
es: 


38: 


4§: 
S$: 


7$: 


65: 


SOCNT: BYTE 
SOFILL: -BYTE 





3 5GET THE ZERO FILL SWITCH 


HOLERA THE OUTPUT WORD 


ATE MSB INTO "C 
sito 00_MSB 
TORN THIS DIGIT 


st 3 ,DiGiT 
DIGIT? 
J 


ISN’T A BLANK 
IT 


{RESTORE RY 
;;RESTORE R3 
a THE STACK FOR RETURNING 


0 FILL SWITCH 
SOMODE : OF DIGITS TO TYPE 
-SBTTL GORVERT BINARY TO aaa . OND TPS ROUT TNE 


paceensauecensscuenseuswenuseegnereeuspousscononeeezescesens 
a BINARY NUMBER TO A 


SATHTS ROU 


HSIGED D Dec Tra 
baa 


s@ 
& 


;;PUT_T 


S-DIGIT 


(ASCII) NUMBER at NG ON WHETHER THE 
IVE A SPACE dR’ A MINUS SIGN WILL x TYPED 
NUMBER. WAYS BE 


LEADING ZEROS WILL AL 


STACK 
tISET BLANK SWITCH AND SIGN 





BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 


= 


MAINDEC-11-DZDRH-A MACYL1 27(722) 21-SEP-76 09:52 PAGE SS 

DZDRH.P11 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
305S 017070 016605 cOD0e0 MOV 20(SP),RS ::GET THE INPUT NUMBER 
3056 017074 100004 BPL 1$ ::BR IF INPUT IS POS. 
3057 17078 OOS405 NEG 5 ::MAKE THE BINARY NUMBER POS 

17100 112766 ooo0ss o00001 MOVB = # =, 1 (SP) ::MAKE THE ASCII NUMBER NEG. 
3059 017108 005000 18: CLR R :: ZERO THE C TANTS INDEX 
3060 017110 012703 017266 MOV #$0BLK,R3 :;SETUP THE OUTPUT POINTER 
3061 017114 ile7e3 Od00040 MOVB 8’, (R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
s0b2 171 2s: CLR R2 CLEAR THE 8CD NUMBER 
171 16001 017256 MOV SOTBL(RO),R1  #§ 3:GET THE CONSTANT 
3064 O17 601 33: SUB R1,RS ::FORM THIS BCD DIGIT 
3065 0171 niegiv BLT $ ::BR IF 
2066 O17132 O0S202 INC R2 :: INCREASE THE BCD DIGIT BY 1 
3067 017134 000774 BR 3$ 
3068 017136 060105 4g ADD R1,RS ;;ADD BACK THE CONSTANT 
3069 171 bos/0e TST R2 *:CHECK IF BCD OlcIT=0 
3070 0171 1002 BNE c$ ::FALL THROUGH IF 
3071 017144 105716 TSTB —s-« (SP) *:STILL DOING LEADING 0’S? 
30 171% 100407 I 7§ ::BR IF YES 
335 17150 106316 S$ ASLB = (SP) >: MSD? 
Soe pistes 1% 1 177777 ote «= SYSP).-1(R3) SE VESLESE? THE SIGN 
3076 017162 i28663 vanes 6S: BIS #’0,Re *:MAKE THE BCD DIGIT ASCII 
3077 171 052702 000040 78: BIS #’ Re *:MAKE IT A ri NOT ALREADY A DIGIT 
3078 017172 il Re, (R3)+ ::PUT THIS IN THE OUTPUT BUFFER 
3079 017174 005720 TST (RO)+ 7: JUST INCR ING 
3080 017176 Oe002e7 000010 CMP RO, #10 ::CHECK THE T INDEX 
3081 bt aen8 002746 BLT 2s *:G0 DO THE NEXT DIGIT 
2082 017204 093002 BGT 8$ :G0 TO EXIT 
Ht 01 MOV RS,Re ;;GET LSD 

3084 017210 000764 BR 6$ GO CHANGE TO ASCII 
3085 O17ele 105726 8S: TSTB ss ( SP)+ >:WAS THE LSD THE FIRST NON-ZERO? 
3085 017214 100003 BPL 9 ::BR IF NO 
3087 Oi7els 116663 177777 177776 MOVB  -1(SP),-2(R3) js YES-=SET THE SIGN FOR TYPING 
2088 017224 105013 9S: CLRB ss (R3) ::SET THE TERMINATOR 
3089 017225 012605 MOV (SP)+,RS ::POP STACK INTO RS 
3090 017230 012603 MOV (SP)+>R3 POP STACK INTO R3 
3091 017232 012602 MOV (5P)+'Re *:POP STACK INTO Re 
3092 017234 012601 MOV (SP)+'RI ::POP STACK INTO Ri 
3093 O17e% 012600 MOV (SP)+’RO *:POP STACK INTO RO 
3094 01 104401 017266 TYPE SDBLK *:NOW TYPE THE NUMBE 
3095 Oi7eu4 016666 000002 op0004 MOV 2(SP),4(SP) ::ADJUST THE STACK 
30% 017252 Ol261 MOV (SP)+' (SP) 
3097 017254 RTI ; RETURN TO USER 
3098 017256 Oe3420 SOTBL: 10000. 
3099 017260 001750 1000. 
3100 017262 000144 100. 
3101 O17eb4 o00012 10. 
3102 17266 000004 SDBLK: .BLKW 4 
3104 .SBTTL TRAP DECODER 
3106 3 HLEKERHAS CREEK AKHKE KE RAES AERA LAER LHEA FRAKES RE RASHER KAKA A LAKE ELSES 
3107 THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
3108 ‘#AND USE IT TO INDEX THROUGH THE T ABLE FOR THE STARTING ADDRESS 
3109 OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
2116 *#G0 TO THAT ROUTINE. 


0+ b= b= b= b= 6 b= 6 b= b= b= bb 8 0 0+ B= 6-2 2 2 & 0 O—2 H— P= BH Ps HP 9 De 


IW) WIG) GIG) GI GG) GG) GI GG) GI) GI GL) GIG) GI GI (0 GI GI GIGI GI GI ILI GIGI 
GR ORE COP OD UO UE CORO DD IRON Ei OBER VON PORE NON LOU OO OUT MU 


WWWWIW WWWIWWW)WWWWW WWII WIIG) 
BO ba ee ee as ee ee ee he ee 
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11 TRAP DECODER 
017276 010046 TRAP: MOV RO, -(SP) SAVE R 
917300 016600 900002 NOY (SP), RO : GET TRAP ADDRESS 
81530 568 MOVE (RO), RO i Beek Ri GAT ve OF TRAP 
017310 006300 ASL RO : POSITION FOR INDEXI 
i7sle 516000 017332 MOV STRPAD(RO),RO ;:INDEX TO TABLE 
17316 000200 RTS RO ::G0 TO ROUTINE 
;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
17320 O1164%6 ~ STRAP2: MOV (SP). -(SP) :sMOVE THE PC DOWN 
017322 Ol&ts. ouuuds 900002 MOV 4(SP},2(SP) HnOve THE PSW DOWN 
017330 000002 *RESTORE THE PSW 
.SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINS CALLED 
:*BY THE “TRAP” INSTRUCTION 
: ROUTINE é' 
017332 017320 $TRPAD: .WORD $TRAP2 
017334 016404 $TYPE ;;CALL=T TRAP+1(104401) TTY TYPEQUT ROUTINE 
017336 016650 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017340 O16624 STYPOS ::CALL= TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
Di7342 O16664 STYPON ?:CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMSER (AS PER LAST CALL) 
917344 017052 TYPDS j;CALL=TYPOS © TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
017346 016106 SRDCHR ;;CALL=ROCHR = TRAP+6(1 ) TTY TYPEIN CHARACTER ROUTINE 
017350 016142 SROLIN t {CACC=ROLIN TRAP+ (tBu uo?) TTY TYPEIN STRING ROUTINE 
017352 016302 SRDOCT ;;CALL=RDGCT | TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
017354 012434 RCVP tine TRAP+11( 104411) 
017356 Oleese XCVP  ;:CALL=GETXC  TRAP+12(104412) 
017360 015314 oP js CALL =EOPCAL TRAP+13( 104413) 
1 014146 SWRCAL ;;CALL=SWCAL © TRAP#14( 104414) 
017364 014164 HALTER $;CALL=HALTCL TRAP+15( 104415) 
017366 913772 IOTRD :$CALL=10TT TRAP+16( 104416) 
017370 014252 RESETR ::CALL=RESETC TRAP+17( 104417) 
\SBTTL POWER DOWM AND UP ROUTINES 
3 SSL eee peepee re 
017372 012737 017532 000024 $PWRON: MOV #SILLUP, Q#PWRVEC ;;SET FOR FAST UP 
017400 12737 000340 HOV #340) SPUR VEC+2 Hi ze 
Bi ay stata MOV Ri 8p Ri oh ie 
Gi74ie oO10e%6 MOV Re 
17414 010346 MOV R3 
17416 010446 MOV RY 
17420 O10S46 MOV RS 
Oi7422 017746 161512 MOV ash 
017426 010637 017536 MOV SP, 





i ne ee 


JO6 







-EVEN 
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DZORH. P11 POWER DOWN UP ROUTINES 
3167 O17432 012737 017444 900024 MOV BSPWRUP, 2ePWRVEC ;;SET UP VECTOR 
3168 017440 000000 HALT 
a 017442 000776 BR 2 : HANG UP 
i gs SRRAAAASASEARALER RAL ELE FLERE FLARE LERLELARAAA RAL ELH AEARFRA LEEKS LASEE 
1 : “POWER UP ROUTINE 
3173 Tae 12737 Tee oooce4 §PWRUP: NOV seine arenes ; i of0R FAST DOWN 
aie Ie Bete Bie RR FEMIT Looe for, re 117 
3i5$ Bieuee = BOTS%s 7 oh «fF + OF WORD 
3178 7470 161444 MOV (SP )+, SUR : POP STACK INTO ASHR 
3126 Blouse MOY Cees Ra ibop STACK INTO Ba 
3181 7500 HOV (SP +, Ra : POP STACK INTO R3 
aig 7 ey (2p}3’ Bi Bop aT Re Ny R1 
iss 1 917372 00024 rv esPuntn NUDSPURVEC TASET IP THE POMER DOMN VECTOR 
ai 7b BhoS8 000026 v_ ube NetRVECe bRtOSS 
1 TYPE: ‘REPORT THE POWER FAILURE 
3188 7526 SPWRMG: giiotio SPOWER POWER FAIL MESSAGE POINTER 
3183 rea SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
3191 017534 BR 2 :: BEFORE THE POWER DOWN WAS COMPLETE 
te Le S$SAVRE: ;;PUT THE SP HERE 
31 75 047520 O42527 SPOWER: .ASCIZ <15)><12>“POWER™ 
3194 017546 
3195 
3196 
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’ 
12 
Fe = 1044] 
TXC = l 
GNS 


nt 


1 
S £HEREE | 


ii 
3 
Cin 


an 
a8 


Gates 


= 
ss 
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7 
ay 
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“7% 
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sie 


=z 
I 
=z 


MODE 

MODEI 001202 

MODPAT 

eT Ouran 
ts ‘ 

MTTRP  O0b232 

OMLT 011052 

| QUTASK 

| OUTM 

OUTMMK 

OUTUR 

OUTURE 

PATF 1224 

PAT 1 
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-4 
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=z 
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Pe es 


oe 


2094 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
cos 8 293 
1448 i oe 
936 1030 1220 1404 1731 
s 231 % oer" 2709 
oo iar fe Sie 
$8 1633 EA 1478 
8S6 868s 
hn ns on < as 
1049 1066 1165 1169 1175 
gels eeee ecke 2268 2323 
264 2653 e761 e77e 3135 
3147 Le te 31£9 3151 
5 | 1508 
24258 150 
8s3 8758 876 
478 2918 2359 
S34 14728 =61733 
Pee ese 
5 7008 
362 4498 457 806 1052 
529 7998 
624 827 8388 3e8 i005 
8408 869 878 eels 304 
316% 10978 
319% 11088 
23708 3151 
23 33S 337 415 4a 
1428 279% 280% 
13238 1338 
1430 14S68 
Psy 8 
487 1 22788 2839 
2303 23208 
488 2953 3 
1 1 138 
| 1 r} 
198 # 1 72S 729 
2208 Beek BSS 858 861 
619 soot 
1117 1 26068 
1060 13008 1413 
1081 10898 1103 
538 17458 2095 
Ybew 470 609 1069 
SS4 Soos 569 S71 828 
602 6198 623 974 
6208 647 653 660 698 
bee8 738 746 770 780 
§ 73% 574 638 641 
r} 1004# 
ee8s 517% 622 816% B26 
2298 868% 877% 895% 901* 
115! 1171 
592% 


nm 
tT 
WwW 
as 


31468 
let 2715% 

410 42e4 3 
ca a? Yaa 
1271 le77 «1365 =—s 2178 186 2193 
e339 «6 e349—siSHC(iti7SC(iéssCéB 2435 
3137-3138 = 3139s 3142 1433144 
31518 
8e3* 1405 
787 
923 927 
959 985 992 1001 1004 1017 
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" 


%000007 
PIRQ = 177772 
EI ROVES boa246 1488 
POPSPe= 1508 
PPM 4 
PPMEXT 
PRO = 000000 718 
PR1 is 7ee 
pre s 100 738 
Bras pooeao ge 
S LILIA cL 
PRS = nnn“ 768 
= 000 778 
PR? = OonaMo sae 
PS = 177776 ais 
1571# 
1871 
PSH = 177776 See 
PSWR lb2 6393 
PTRM iss 2328 
PTRS 1 2338 
PWRVEC= 000024 1438 
Pl 007310 13028 
a. eS 
pis Ore 13308 
P16 007432 1331 
Pia parade i3e28 
SU ate 1397 
Pe 007316 12038 
P20 007550 1 
Pel 007556 13758 
Pee 007376 13338 
P23 007404 13358 
P24 007600 13958 
Pe5 007606 13978 
qa) CO7666 1398 
Pe7 74 14218 
P28 14268 
Peg 2 14368 
3 007324 13108 
P30 007772 14408 
P31 007774 14428 
A 007630 14048 
003434 Sa] 
RCSRA 001204 2108 
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- USER SYMBOLS 


649# So oe * 688 691 695# 
aS a i 
1382% 2249% 2262% 2272% 2664% 2667%  2677% 


763 893 1486 1503 1683 1719 1759 
701 704 707 


719% * + Ge Se 1046% 10628 

1ebes 163s 1ebex sede 170ee vide | 17ers 
2046 2066% 2071% 2076% 2083% 

1080 1093% 1107 

286% 3157% 3158% 3167% 3173% 3185* 3186% 


458% 799 875 888% 834 900# 903% 
1187# 1189 1193# lee3 1226 1228 1231# 
SSe# 1553% 1554 1563% 572% 1573% take 


BoM he SO 


$964 700% 
792% 10202 
2927# 
1776 2044 
1239 1439% 
1809% 1823% 
2437% 
1042 1120 
1237% leds 
1S86% 1595s 
1672% 1684s 
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18Se#  1864* 
1124% 1126 
1472 1482 
1s97% 1599 
1708*  1713% 
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RESETC= 104417 
RESETR O14 
RESVEC= i l 
Sleom Gie 
RET1 1 
Rare 003264 
RVT 001210 
RVTP 001266 
ae 00iele 
RO = ppa00 
Rl =%00N001 
Re =%000002 
R2 =%000003 
By =7000004 
RS =~00000S 
RE =%000006 
R7 2=%000007 
SAavPC 001276 
SBSM 006664 
SISM 006352 
SMSST 1 
ener Boe STS 
SNDPAT 004322 
SP =%000006 
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R SYMBOLS 
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-- SYMBOLS 
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1 CROSS REFERENCE TABLE -- en SES 
001 2498 330 495 * 2352 2359% 
Meee 2300 23468 
1 1068 
ae 106 
ry 105 
Ne 104 
938 103 
9es 102 
S18 101 
908 100 
83a 99 
888 98 
878 97 
1058 
be 
8S 
Ba 
tv nees B28 
00000 Bis 
1048 
10 1038 
1028 
1018 
read ‘foe 
998 
000400 988 
aes se 1138 1196% 1lell#  i2l 1258% 
By Eig a3e 578 ibe 1142 1233 1247 24728 
014642 1023 1144 le4e i 259S8 
001234 head S4es 976 # 980# 1017 1022# 1023 102S* 11428 1144 1151 
1% 5 im 1184" 1233# 1242 12e47# §1249 12e53% 1255 1273 12928 
14270 6SS 1328 1434 24738 
014642 651 1330 1442 145 25968 
001232 8 ae 649 650% 655% 78S# 7 730# «1328% 1330 13S2 1354# 
1 Sse 14 1437% 1442 14S6 145 1461 
pe rape 414# 416% # 518% 
pole fae Met 414 415% 418% 419% 
coon fans 283% 284% 
14 +0 756 775 7828 
10060 14778 
loeee ieoas 
1 ene pegs 
ee, 16988 
ll 17508 
lll 17678 
11 17848 
llel 18048 
101 14948 
O0lle76 16288 
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